Вычислить на паскале. Среди всех трехзначных чисел подсчитать количество кратны
Вычислить на паскале.
Среди всех трехзначных чисел подсчитать количество кратных 21 и одновременно четных. Найти их среднее арифметическое.
Гость
Ответ(ы) на вопрос:
Гость 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.
Не нашли ответ?
Похожие вопросы