Урок 13.1 Задача 8

Primary tabs

Submitted by alexander263 on Sun, 10/17/2021 - 11:22

Forums:

Урок 13.1 Задача 8

Выведете на экран числа от 1 до 5 два раза с помощью вложенных циклов. Так чтобы в консоли было:

1 2 3 4 5
1 2 3 4 5

program project1;
var i,j:integer;

begin
  i:=0;
    while(i<2)do
      begin
        j:=0;
        i:=i+1;
        while(j<5)do
          begin
            j:=j+1;
            write(j,' ');
          end;
        writeln();
      end;
  readln();
end.
  • Log in to post comments
  • 1442 reads
vedro-compota's picture

vedro-compota

Sun, 10/17/2021 - 12:38

переделать на for

_____________
матфак вгу и остальная классика =)

alexander263

Wed, 10/20/2021 - 18:00 

program project1;
var i,j:integer;

begin
  for i:=1 to 2 do
    begin
      for j:=1 to 5 do
        write(j,' ');
      writeln();
    end;
  readln();
end.
vedro-compota's picture

vedro-compota

Wed, 10/20/2021 - 19:28

решение засчитано

_____________
матфак вгу и остальная классика =)