Найти среднее арифметическое всех трехзачных чисел кратных 6

17928493 17928493    3   22.05.2019 22:10    0

Ответы
VictoriaOrlova32455 VictoriaOrlova32455  18.06.2020 13:45
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика