Nguyễn Nhi

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

Minh Lệ
23 tháng 1 2022 lúc 19:09

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.

Bình luận (0)
Lương Đại
23 tháng 1 2022 lúc 16:41

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.

Bình luận (0)
anime khắc nguyệt
23 tháng 1 2022 lúc 16:41

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.

 

Bình luận (0)

Các câu hỏi tương tự
huyokkkkk
Xem chi tiết
Trí Cao
Xem chi tiết
Oni-chan
Xem chi tiết
Tiểu yêu tinh cute
Xem chi tiết
trịnh hoàng anh thư
Xem chi tiết
Hùng Bùi
Xem chi tiết
night
Xem chi tiết
Hoàng Thị Mỹ Phan
Xem chi tiết
Long Châu
Xem chi tiết