Найти средне арифметическое чисел кратных 5 на промежутке от 50 до 100 и вывести их на экран по убыванию (Паскаль)

Question

Информатика

Петринка

14 декабря, 13:07

Найти средне арифметическое чисел кратных 5 на промежутке от 50 до 100 и вывести их на экран по убыванию (Паскаль)

+3

Ответы (1)

Знаете ответ?

Полинария · Answer 1

Var

i, k, d:Integer;

Begin

for i:=100 downto 50 do

if (i mod 5=0) then

begin

Writeln (i) ;

Inc (k) ;

d:=d+i;

end;

Writeln ('Среднее арифметическое : ', d div k) ;

end.