Задача 15 урок 13.1
Primary tabs
http://fkn.ktu10.com/?q=node/8697
{С помощью вложенных циклов выведите на экран таблицу деления чисел от 1 до 9.}
program task15_lesson13_1; var i, j: Integer; begin For j:=1 to 9 do // делитель выводим во внешний цикл Begin For i:=1 to j*10 do If ((i mod j) = 0) then WriteLn(i , ' : ', j, ' = ', i div j); WriteLn(); End; readln; end.
- Log in to post comments
- 548 reads