Вывести на экран квадраты чисел от 11 до 27 .
Program zadanie;
Var k,i:integer;
Begin
For i:=11 To 27 Do
begin
k:=k+sqr(i);
Writeln(k);
end;
End.
Оцени ответ
Вход
Регистрация
Задать вопрос
Program zadanie;
Var k,i:integer;
Begin
For i:=11 To 27 Do
begin
k:=k+sqr(i);
Writeln(k);
end;
End.