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
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
