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

Question

Анна Никифорова

Информатика

19 апреля, 06:32

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

+1

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