Написать программу. Даны 2 числа a и b. Найти среднее арифметическое всех чисел кратных 3 из интервала [a,b].
Answers & Comments
vladik1603var i, j, a, b: integer; s: real; begin write('Введите a: '); readln(a); write('Введите b: '); readln(b); for i := a to b do if (i mod 3) = 0 then begin s := s + i; inc(j); end; s := s / j; writeln('Ответ: ', s); end.
Answers & Comments
i, j, a, b: integer;
s: real;
begin
write('Введите a: '); readln(a);
write('Введите b: '); readln(b);
for i := a to b do
if (i mod 3) = 0 then
begin
s := s + i;
inc(j);
end;
s := s / j;
writeln('Ответ: ', s);
end.