Вывести на экран квадраты чисел от 11 до 27 .
Ответы на вопрос
Ответил Igorrock
0
Program zadanie;
Var k,i:integer;
Begin
For i:=11 To 27 Do
begin
k:=k+sqr(i);
Writeln(k);
end;
End.
Var k,i:integer;
Begin
For i:=11 To 27 Do
begin
k:=k+sqr(i);
Writeln(k);
end;
End.
Ответил alexooooon
0
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.
begin
a:=10;
b:=0;
while(a < 27) do
begin
a:=a+1;
b:=a*a;
writeln(a, '^2 = ', b);
end;
end.
Новые вопросы
Информатика,
2 года назад
Русский язык,
2 года назад
Литература,
9 лет назад
Математика,
9 лет назад