Задание:
Напишите программу, которая выводит на экран в программе pascal 100 квадратов (использоватьrandomize)
Решение:
var a: array [1… 100] of real; i: integer; beginrandomize; for i: =1 to 100 do begina[i]: =random (100)+1; a[i]: =power (a[i],2); writeln (a[i]); end; end.
Знаете другой ответ?