Напишите в паскале программу,которая выводит на экран таблицу квадратов первых двадцати целых положительных четных чисел. Срочно!
Ответ:
program zz;
var
i: integer;
begin
for i := 1 to 20 do
if i mod 2 = 0 then
writeln(i, '*', i, ' - ', i * i);
readln;
end.
Объяснение: