Question

Viết chương trình tính tích từ 1 đến 50

Answer 1

Program HOC24;

var i: byte;

t: longint;

begin

t:=1;

for i:=1 to 50 do t:=t*i;

write('Ket qua la: ',t);

readln

end.

Answer 2

Tham khảo:

Program bai_tap;

Uses crt;

Var i:integer;

Begin

clrscr;

For i:=1 to 50 writeln(i);

readln;

End.