Паскаль.

На интервале от 100 до 300 найти среднее арифметическое чисел, кратное 10.

Question

Информатика

Надеждушка

20 августа, 18:04

Паскаль.

На интервале от 100 до 300 найти среднее арифметическое чисел, кратное 10.

+4

Ответы (1)

Знаешь ответ?

Минодора · Answer 1

Var

k, i:integer;

SrAr:real;

begin

k:=0;

s:=0;

for i:=100 to 300 do

if i mod 10=0 then

begin

k:=k+1;

s:=s+i;

end;

SrAr:=s/k;

writeln (Sr:5:2);

end.

Паскаль.На интервале от 100 до 300 найти среднее арифметическое чисел, кратное 10.

Паскаль.

На интервале от 100 до 300 найти среднее арифметическое чисел, кратное 10.