Паскаль.

Найти сумму корней квадратных из всех нечетных двузначных чисел

Question

Христюха

13 декабря, 01:43

+5

Ответы (1)

Знаете ответ на вопрос?

Федяня · Answer 1

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.

Паскаль.Найти сумму корней квадратных из всех нечетных двузначных чисел