составить таблицу квадратов,первых двадцати положительных чисел 1<либо равно а<либо равно20,шаг=1,с=а*а,sqr(a),a=a+1

1

Ответы и объяснения

Лучший Ответ!
2012-02-24T15:06:55+00:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

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;