Viết chương trình tính tổng N số nguyên đầu tiên xuất kết quả tổng và N ra màn hình khi tổng vừa lớn hơn 1.000 sử dụng câu lệnh if then và và for to do
2 câu trả lời
program oken;
uses crt;
var n,i,s: longint;
begin
clrscr;
write('Nhap 1 so bat ky: '); readln(n);
s:=0;
for i:=1 to n do
s:=s+i;
writeln('Tong cua ',n,' so tu nhien dau tien: ',s);
readln;
end.
Program Tong_N;
Uses crt;
Var N,T,I: Integer;
Begin
Clrscr;
Write (‘Hay nhap N: ’);
Readln (N);
T:= 0
For i:=1 to N do T:=T+i;
Writeln (‘Tong cua N so tu nhin dau tien la ’, N);
Readln;
End.
mình ko chắc đâu ạ
Câu hỏi trong lớp
Xem thêm