Question

[Le Hoang Phuong]

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)

Answer 1

[Minh Lệ]

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.

Answer 2

[Nguyễn Lê Phước Thịnh]

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.