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

Question

Информатика

Акилина

23 марта, 23:19

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

+5

Ответы (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.