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

Primary tabs

Submitted by Lena on Sat, 01/01/2022 - 13:38

Forums:

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

var i,j:integer;
begin
  i:=1;
  j:=1;
  repeat
    repeat
     writeln(i,'*',j,'=',i*j);
     j:=j+1;
    until (j>10);
     i:=i+1;
     j:=1;
  until (i>10);
end.
Консоль:
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
1*10=10
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
2*10=20...
  • Log in to post comments
  • 1079 reads
vedro-compota's picture

vedro-compota

Sat, 01/01/2022 - 13:43 

 repeat
    repeat
     writeln(i,'*',j,'=',i*j);
     j:=j+1;
    until (j>10);

-- старайтесь на всех уровнях вложенности форматировать на равное число пробелов,
напр. сравните отступ здесь (между первой и второй строкой):

 repeat
    repeat

и отступ здесь:

   repeat
    writeln(i,'*',j,'=',i*j);

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

Lena

Sat, 01/01/2022 - 13:49

Поняла, учту, спасибо