1. Найти среднее арифметическое двузначных чисел кратных 7

2. Найти среднее арифметическое первых 10 чисел делящихся на 5

(в паскале)

Question

Информатика

Ульяна

14 августа, 03:48

1. Найти среднее арифметическое двузначных чисел кратных 7

2. Найти среднее арифметическое первых 10 чисел делящихся на 5

(в паскале)

+5

Ответы (1)

Знаете ответ на вопрос?

Велимир · Answer 1

Begin

var m, u, p, t:integer;

for var i:=10 to 99 do

if i mod 7 = 0 then

begin

m:=m+i; u:=u+1;

end;

Writeln ('Среднее чисел которые дклятся на 7=', m/u) ;

for var i:=1 to 99 do

if i mod 5 = 0 then

begin

p:=p+i; t:=t+1;

if t > 10 then break;

end;

Writeln ('Среднее чисел которые дклятся на 5=', p/t) ;

end.

1. Найти среднее арифметическое двузначных чисел кратных 72. Найти среднее арифметическое первых 10 чисел делящихся на 5(в паскале)

1. Найти среднее арифметическое двузначных чисел кратных 7

2. Найти среднее арифметическое первых 10 чисел делящихся на 5

(в паскале)