Nhập 2 số từ bàn phím. Và tính tổng 2 số đó Freepascal nha
2 câu trả lời
1/ `N = 1,2,3,4..N`
uses crt;
var n: byte;
gt: word;
begin
clrscr;
gt:=1;
write (‘nhap n: ‘); readln (n);
for i:=1 to n do
gt:=gt*i;
writeln (‘N!=’,gt);
readln;
end.
2/ `1+2+3+4+…+n>=n`
uses crt;
var i,n: integer;
s: longint;
begin
clrscr;
write (‘nhap n: ‘); readln (n);
for i:=1 to n do s:=s+i;
writeln (‘tong la: ‘,s);
readln;
end.
`text\(xin hay nhất nha !!!)`
Câu hỏi trong lớp
Xem thêm