viết chương trình nhập vào 1 số nguyên dương n, in ra màn hình tích của nó.( mô tả thuật toán và viết CT)
vt CT in ra màn hình các số chia hết cho 3 và thông báo ra màn hình có bao nhiêu số chia hết cho 3 trong phạm vi từ 1->n. Bt n nhập từ bàn phím, n nguyên dương( mô tả thuật toán và viết...
Đọc tiếp
viết chương trình nhập vào 1 số nguyên dương n, in ra màn hình tích của nó.( mô tả thuật toán và viết CT)
vt CT in ra màn hình các số chia hết cho 3 và thông báo ra màn hình có bao nhiêu số chia hết cho 3 trong phạm vi từ 1->n. Bt n nhập từ bàn phím, n nguyên dương( mô tả thuật toán và viết CT)
viết chương trình nhập vào 1 số nguyên dương n, in ra màn hình tích của nó.( mô tả thuật toán và viết CT)
---------------------
Thuật toán :
B1: Nhập n
B2: t←1; i←1;
B3: Nếu i>=n thì in ra kết quả và kết thúc
B4: t←t*i;
B5: i←i+1 quay lại bước 3
Viết chương trình:
Program hotrotinhoc_hoc24;
var i,n: integer;
t: longint;
begin
write('Nhap n='); readln(n);
t:=1; i:=1;
while i<n do
begin
t:=t*i;
i:=i+1;
end;
write(t);
readln
end.
Bài 2:
*Mô tả thuật toán
-Bước 1: Nhập n
-Bước 2: dem←0; i←1;
-Bước 3: nếu i mod 3=0 thì xuất i và dem←dem+1;
-Bước 4: i←i+1
-Bước 5: Nếu i<=n thì quay lại bước 3
-Bước 6: Xuất dem
-Bước 7: Kết thúc
*Viết chương trình
uses crt;
var n,i,dem:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until n>0;
writeln('Cac so chia het cho 3 trong khoang tu 1 toi ',n,' la: ');
dem:=0;
for i:=1 to n do
if i mod 3=0 then
begin
write(i:4);
inc(dem);
end;
writeln;
writeln('So cac so chia het cho 3 trong khoang tu 1 toi ',n,' la: ',dem);
readln;
end.