Паскаль. Найти сумму корней квадратных из всех нечетных двузначных чисел
Паскаль.
Найти сумму корней квадратных из всех нечетных двузначных чисел
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы