Найти среднее арифметическое всех трехзачных чисел кратных 6
Найти среднее арифметическое всех трехзачных чисел кратных 6
Гость
Ответ(ы) на вопрос:
ГостьVar i, sum, k : longint ;
Begin
For i:= 100 to 999 do
If i mod 6 = 0 then
begin
sum:= sum +i ;
k:= k +1 ;
End;
Writeln ( sum/k ) ;
End.
Не нашли ответ?
Похожие вопросы