Question

Sử dụng câu lệnh lặp do while-do để tính tích các số tự nhiên từ 1 đến 100.

Answer 1

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

Answer 2

Giúp mk vs ... mk dag cần gấp 😓😓😓😓😓😓😢😢😢😢😢😢😭😭😭😭😭😭