Tin học Viết chương trình tính T=1, 2, 3,…N. Với N nhập từ bàn phím (N ≤ 10) 03/08/2021 By Ivy Viết chương trình tính T=1, 2, 3,…N. Với N nhập từ bàn phím (N ≤ 10)
uses crt;var n,i,t:longint;beginclrscr; write(‘n=’);readln(n); t:=1; for i:=1 to n do t:=t*i; writeln(‘T= ‘,t);readlnend. Trả lời
uses crt; var tich,i,n:longint; begin clrscr; write(‘Nhap n: ‘);readln(n); tich:=1; for i:=1 to n do tich:=tich*i; writeln(tich); readln; end. Trả lời
uses crt;
var n,i,t:longint;
begin
clrscr;
write(‘n=’);readln(n);
t:=1;
for i:=1 to n do t:=t*i;
writeln(‘T= ‘,t);
readln
end.
uses crt;
var tich,i,n:longint;
begin
clrscr;
write(‘Nhap n: ‘);readln(n);
tich:=1;
for i:=1 to n do tich:=tich*i;
writeln(tich);
readln;
end.