Вывести на экран квадраты чисел от 11 до 27 .

Ответ

Автор - Igorrock

Program zadanie;
Var k,i:integer;
Begin
For i:=11 To 27 Do
begin
k:=k+sqr(i);
Writeln(k);
end;
End.

Автор - alexooooon

var a,b:integer;
begin
a:=10;
b:=0;
while(a < 27) do
begin
a:=a+1;
b:=a*a;
writeln(a, '^2 = ', b);
end;
end.

Сервис носит ознакомительный характер, вся информация, а в частности вопросы и ответы, которые задают и отвечают пользователи.