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