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

137

431

Посмотреть ответы 3

Ответы на вопрос:

abdirovadajana

Информатика

4,8(92 оценок)

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.

lenusya007

Информатика

4,4(57 оценок)

//1 var average: real; i,cnt: integer; begin for i: = 10 to 99 do if (i mod 7 = 0) then begin average : = average + i; inc(cnt); end; average: =average / cnt; writeln(average); end. //2 var average: real; i,cnt: integer; begin i: = 0; cnt: = 0; while (true) do begin inc(i); if (i mod 5 = 0) then inc(cnt); average: =average + i; if (cnt = 10) then break end; average : = average / 10; writeln(average); end.