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

Primary tabs

Submitted by Кас on Sun, 12/19/2021 - 08:27

Forums:

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

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

1x1 = 1
1x2 = 2
......
var i, j : integer;
begin
  i := 1;
  repeat
     begin
       j := 1;
       repeat
          write (i,'*',j,'=',i*j,' ');
          writeln();
          j := j + 1;
       until j > 9;
     end;
     i := i+1;
  until i >9 ;
  readln();
end.
  • Log in to post comments
  • 878 reads
vedro-compota's picture

vedro-compota

Sun, 12/19/2021 - 13:10

  • begin end; -- не нужны

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

Кас

Sun, 12/19/2021 - 13:17 

var i, j : integer;
begin
  i := 1;
  repeat  
     j := 1;
     repeat
        write (i,'*',j,'=',i*j,' ');
        writeln();
     j := j + 1;
     until j > 9;     
  i := i+1;
  until i >9 ;
  readln();
end.