Вычислить на паскале.

Среди всех трехзначных чисел подсчитать количество кратных 21 и одновременно четных. Найти их среднее арифметическое.

Question

Информатика

Любаня

28 января, 01:23

Вычислить на паскале.

Среди всех трехзначных чисел подсчитать количество кратных 21 и одновременно четных. Найти их среднее арифметическое.

+4

Ответы (1)

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

Артурка · Answer 1

Var

i, sum, kol_vo:integer;

sr:float;

begin

for i:=100 to 999 do

begin

if (((i mod 21) = 0) and ((i mod 2) = 0)) then

begin

kol_vo:=kol_vo+1;

sum:=sum+i;

end;

end;

sr:=sum/kol_vo;

print ("необходимых чисел ", kol_vo,". Их среднее арифметическое ", sr)

end.

Вычислить на паскале.Среди всех трехзначных чисел подсчитать количество кратных 21 и одновременно четных. Найти их среднее арифметическое.

Вычислить на паскале.

Среди всех трехзначных чисел подсчитать количество кратных 21 и одновременно четных. Найти их среднее арифметическое.