Напишите программу, которая выводит два столбца, в первом – целое число от 1 до 10, а рядом во втором его квадрат.
Решение:
1 2 3 4 5 6 7 8 9 10 11 12 13 |
program cycles_4; uses crt; var i: integer; begin clrscr; write('Число Квадрат'); writeln; for i:=1 to 10 do begin writeln(i:2, ' ', sqr(i):8); end; readkey; end. |
Похожие записи: