Составить программу, которая вычисляет среднеарифметическое чисел, кратных 3 в диапазоне от 1 до 200. (язык pascal) пожалуйста...
Answers & Comments
elenaklon
Если всё-таки нужно среднее арифметическое всех чисел, кратных 3, в диапазоне от 1 до 200
var i,s,k:integer; begin for i:=1 to 200 do if i mod 3 = 0 then begin s:=s+i; k:=k+1 end; writeln ('Среднее арифметическое чисел, кратных 3, в диапазоне от 1 до 200 равно: ',s/k) end.
Answers & Comments
var i,s,k:integer;
begin
for i:=1 to 200 do
if i mod 3 = 0 then begin
s:=s+i;
k:=k+1
end;
writeln ('Среднее арифметическое чисел, кратных 3, в диапазоне от 1 до 200 равно: ',s/k)
end.