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