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

Primary tabs

Submitted by kuznmax on Sun, 06/12/2022 - 17:52

Forums:

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

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

Решение:

var i, r:integer;
begin

  for i:=1 to 5 do
    write(i, ' ');
    writeln();
    for r:=1 to 5 do
      write(r, ' ');
  readln();
end.
  • Log in to post comments
  • 1342 reads
vedro-compota's picture

vedro-compota

Tue, 06/21/2022 - 20:26

  1. Исправить форматирование
  2. Сделать циклы вложенными

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

kuznmax

Tue, 06/28/2022 - 15:38 

var i, r:integer;
begin

  for i:=1 to 5 do
      write(i, ' ');
      writeln();
      begin
      for r:=1 to 5 do
        write(r, ' ');
      readln();

      end;
end.
vedro-compota's picture

vedro-compota

Tue, 07/05/2022 - 20:04

  1. циклы по прежнему не вложенные
  2. форматирование неверное

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

kuznmax

Mon, 07/11/2022 - 10:15 

program Project1;
var i, j: integer;
begin
  i := 1;
  repeat
    j := 1;
    while (j<=5) do
      begin
        write(j, ' ');
        j:=j+1;
      end;
    writeln();
    i:=i+1;
  until (i > 2);
  readln();
end.
vedro-compota's picture

vedro-compota

Tue, 07/12/2022 - 20:07

решение нормально, решить через for (и для внешнего и для внутреннего циклов)

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