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

1

Ответы и объяснения

2013-09-06T14:41:45+04:00
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.