Thuý An Nguyễn
Hỏi từ APP VIETJACK
Viết chương trình tính tổng các số tự nhiên từ 50 đến 100
Quảng cáo
1 câu trả lời 1017
Program baitap;
Uses crt;
Var S,i : integer;
BEGIN
clrscr;
S:= 0;
For i:=50 to 100 do
S:= S+i;
Writeln (' Vay tong cua cac so tu 50 den 100 la ', S);
Readln
END.
Uses crt;
Var S,i : integer;
BEGIN
clrscr;
S:= 0;
For i:=50 to 100 do
S:= S+i;
Writeln (' Vay tong cua cac so tu 50 den 100 la ', S);
Readln
END.
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK45502
-
Hỏi từ APP VIETJACK28395
Gửi báo cáo thành công!
