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

Primary tabs

Submitted by mrn123 on Sat, 09/03/2022 - 20:18

Forums:

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

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

program  u13z3;
var i,j: integer;

begin
 i:=1;
 j:=1;
 repeat
   while(j<10) do
   begin
    writeln(i , '*', j,' ', i*j);
    j:=j+1;
    i:=i+1;
   end;
 until(i>9) ;

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

vedro-compota

Sun, 09/25/2022 - 19:45 

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

Запуск был?

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