Составте программу для нахождения среднего арифметического двухзначных чисел, кратных 3. (прошу, чтобы было понятно)
Составте программу для нахождения среднего арифметического двухзначных чисел, кратных 3. (прошу, чтобы было понятно)
Гость
Ответ(ы) на вопрос:
ГостьProgram n1;
var sum,k,i: integer;
begin
sum:=0;
k:=0;
for i:=10 to 99 do if i mod 3=0 then begin
k:=k+1;
sum:=sum+i;
end;
write(sum/k);
end.
Не нашли ответ?
Похожие вопросы