Составить таблицу квадратов,первых двадцати положительных чисел 1

SeenL SeenL    3   04.03.2019 06:00    4

Ответы
coldsssiemens coldsssiemens  24.05.2020 01:22

For a := 1 to 20 do

begin

   writeln(a,"^2 = ", a*a);

end

 

или

 

a:= 1;

repeat

   writeln(a,"^2 = ", a*a);

   a := a + 1;

until a > 20;

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика