Ростопчин
5 год назад
Паскаль. Найти сумму корней квадратных из всех нечетных двузначных чисел
ОТВЕТЫ
Ilya
Oct 24, 2020
Var
S:real;
A:integer;
Begin
S:=0;
For A:= 11 to 99 do
if A mod 2 <> 0 then S:=S+sqrt(A);
WriteLn('S = ',S)
End.
S:real;
A:integer;
Begin
S:=0;
For A:= 11 to 99 do
if A mod 2 <> 0 then S:=S+sqrt(A);
WriteLn('S = ',S)
End.
465
Смежные вопросы:
