Viết chương trình pascal in ra các số từ 1 đến 100 như sau: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 .. 91 92 93 94 95 96 97 98 99 100 chú ý: từ 1 đến 10 sẽ xuống dòng 11 đến 20 sẽ xuống dòng ...... 91 đến 100 sẽ xuống dòng
Quảng cáo
5 câu trả lời 1899
uses crt;
var i: integer;
begin
clrscr;
for i:=1 to 100 do if i mod 10 = 0 then begin
write(i,' ');
writeln
end else write(i,' ');
readln
end.
var i: integer;
begin
clrscr;
for i:=1 to 100 do if i mod 10 = 0 then begin
write(i,' ');
writeln
end else write(i,' ');
readln
end.
uses crt;
var i: integer;
begin
clrscr;
for i:=1 to 100 do if i mod 10 = 0 then begin
write(i,' ');
writeln
end else write(i,' ');
readln
end.
var i: integer;
begin
clrscr;
for i:=1 to 100 do if i mod 10 = 0 then begin
write(i,' ');
writeln
end else write(i,' ');
readln
end.
uses crt;
var i: integer;
begin
clrscr;
for i:=1 to 100 do if i mod 10 = 0 then begin
write(i,' ');
writeln
end else write(i,' ');
readln
end.
var i: integer;
begin
clrscr;
for i:=1 to 100 do if i mod 10 = 0 then begin
write(i,' ');
writeln
end else write(i,' ');
readln
end.
uses crt;
var i: integer;
begin
clrscr;
for i:=1 to 100 do if i mod 10 = 0 then begin
write(i,' ');
writeln
end else write(i,' ');
readln
end.
var i: integer;
begin
clrscr;
for i:=1 to 100 do if i mod 10 = 0 then begin
write(i,' ');
writeln
end else write(i,' ');
readln
end.
program baitap;
uses crt;
var i : Integer;
begin
clrscr;
while (i < 100) do begin
i := i + 1;
write(i, ' ');
if (i mod 10 = 0) then writeln();
end;
readln;
end.
uses crt;
var i : Integer;
begin
clrscr;
while (i < 100) do begin
i := i + 1;
write(i, ' ');
if (i mod 10 = 0) then writeln();
end;
readln;
end.
Quảng cáo
Bạn hỏi - Chuyên gia trả lời
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK
Đã trả lời bởi chuyên gia
45387 -
Hỏi từ APP VIETJACK
Đã trả lời bởi chuyên gia
34814
-
Đã trả lời bởi chuyên gia
30618
-
Hỏi từ APP VIETJACK28170
-
Hỏi từ APP VIETJACK
Đã trả lời bởi chuyên gia
22392
Thành viên hăng hái nhất trong tuần
-
LêĐứcAnlớp5cóchơiRobloxvn,kb ko?Leducanfanbqthanh
1050 điểm
-
Hà Phạm 640 điểm
-
౨ৎᴅʏᴀ ʟᴏᴠᴇ ᴜ౨ৎ
400 điểm
-
cong ngyen 350 điểm
-
Cao Mạnh Khoa
210 điểm
-
I love otp /ZATA x LAVILLE/
150 điểm
-
♉︎𓍢🎧ＡＮ_Ｍê_ＯＴＰ_Dương _Ｈùng ✧˚.🎀༘⋆✧
70 điểm
-
tàu hủ ko ngủ
55 điểm
-
haruto bé nhỏ
55 điểm
-
hyu
50 điểm
-
江然然
40 điểm
-
content
40 điểm
-
Lê Dương 40 điểm
-
Thảo Lương Thị 35 điểm
-
Tú ĐẶng
35 điểm
Rút gọn
Bài viết mới nhất Lớp 8
-
4 năm trước9966
-
4 năm trước9387
-
4 năm trước8096
-
4 năm trước8225
-
4 năm trước7812
Gửi báo cáo thành công!
