Tin học Lớp 8: 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, giúp em giải bài này ạ, em cảm ơn thầy cô và các bạn nhiều.
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.
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;
while (i < 100) do begin
i := i + 1;
write(i, ‘ ‘);
if (i mod 10 = 0) then writeln();
end;
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.