Question

A=1*2*3...*10

Dùng lệnh While...do

Lệnh For...do

Điều kiện(i<=10)

Giúp mình với

Answer 1

lệnh while

program tich;

uses crt;

var i,s:integer;

begin

clrscr;
S:= 1;
i:= 1;
while i <= 10do
begin
S:= S *i;
i:= i +1;
end;
write('Tich tu 1 den 10 la:',S);
readln;
end.

lệnh for

Program Tich; Uses crt; Var S,i:Integer; BEGIN clrscr; S:=1; For i:=1 to 10do S:=S * i; Writeln( ‘Tich = ’, S); Readln; END.