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

Primary tabs

Submitted by kuznmax on Sun, 04/24/2022 - 16:56

Forums:

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

Выведите на экран таблицу умножения используя только циклы вида repeat/until.
Начинаться вывод таблицы должен как-то так:

1x1 = 1
1x2 = 2
......
var i, j: integer;
begin
  i := 1;

  repeat

    j := 1;
    repeat
      write(i, '*', j, '=', i*j, ' ');
      j:=j+1;
      writeln();
      i:=i+1;

    until (i <> 9);

  until (i >= 10);

  readln();
end.
  • Log in to post comments
  • 2068 reads
vedro-compota's picture

vedro-compota

Tue, 04/26/2022 - 20:48

проверить запуск

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

kuznmax

Mon, 05/02/2022 - 14:19 

var i, j: integer;
begin
  i := 1;

  repeat

    j := 1;
    repeat
      write(i, '*', j, '=', i*j, ' ');
      j:=j+1;
      writeln();
      i:=i+1;

    until (i > 9);

  until (i > 10);

  readln();
end.
vedro-compota's picture

vedro-compota

Tue, 05/10/2022 - 17:55

а где вся таблица?

1*1=1
2*2=4
3*3=9
4*4=16
5*5=25
6*6=36
7*7=49
8*8=64
9*9=81
10*1=10

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

kuznmax

Mon, 05/16/2022 - 15:54 

var i, j: integer;
begin
  i := 1;

  repeat

    j := 1;
    repeat
      write(i, '*', j, '=', i*j, ' ');
      j:=j+1;
    until (j > 9);

    writeln();
    i:=i+1;

  until (i > 9);

  readln();
end.

kuznmax

Tue, 05/17/2022 - 16:37 

1*1=1 1*2=2 1*3=3 1*4=4 1*5=5 1*6=6 1*7=7 1*8=8 1*9=9
2*1=2 2*2=4 2*3=6 2*4=8 2*5=10 2*6=12 2*7=14 2*8=16 2*9=18
3*1=3 3*2=6 3*3=9 3*4=12 3*5=15 3*6=18 3*7=21 3*8=24 3*9=27
4*1=4 4*2=8 4*3=12 4*4=16 4*5=20 4*6=24 4*7=28 4*8=32 4*9=36
5*1=5 5*2=10 5*3=15 5*4=20 5*5=25 5*6=30 5*7=35 5*8=40 5*9=45
6*1=6 6*2=12 6*3=18 6*4=24 6*5=30 6*6=36 6*7=42 6*8=48 6*9=54
7*1=7 7*2=14 7*3=21 7*4=28 7*5=35 7*6=42 7*7=49 7*8=56 7*9=63
8*1=8 8*2=16 8*3=24 8*4=32 8*5=40 8*6=48 8*7=56 8*8=64 8*9=72
9*1=9 9*2=18 9*3=27 9*4=36 9*5=45 9*6=54 9*7=63 9*8=72 9*9=81
vedro-compota's picture

vedro-compota

Tue, 05/17/2022 - 20:32

засчитано

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