Question

Viết chương trình tính hiệu từ 10 đến 20 bằng câu lệnh lặp

Answer 1

Program HOC24;

var i: byte;

t: integer;

begin

t:=0;

for i:=10 to 20 do t:=t-i;

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

readln

end.

Answer 2

Program Tínhsotunhien;

User Crt;

Var i, tich: longint

Begin

Clrscr;

tich : = 1 , i: = 1

While tich <= 20 do

Begin

Tich: =tich*i;

End;

Writeln('ketqua,'tich);

Readln;

End.

Answer 3

tham khảo : 

Program Tinhsotunhien;
Uses Crt;
Var i, Tich: longint;
Begin
Clrscr;
Tich:=1; i:=1;
While Tich <= 20 do
Begin
Tich:=Tich*i;
End;
Writeln('Ket qua',Tich);
Readln;
End.