Напишите программу, которая находит среднее арифметическое чисел от A до B включительно,...

Question

Напишите программу, которая находит среднее арифметическое чисел от A до B включительно, которые кратны C. Гарантируется, что такое число найдётся.

Формат ввода
Входная строка содержит три числа - A, B, C.

Формат вывода
Программа должна вывести среднее арифметическое чисел от A до B, которые кратны C до двух знаков после запятой.

Пример 1

Ввод Вывод
4 16 3 10.50

Answer 1

Program Name;
var a,b,c,s,p:integer;
F:real;
begin
readln (a);
readln (b);
readln (c);

Comments

Program Name;
var a,b,c,s,p:integer;
F:real;
begin
readln (a);
readln (b);
readln (c);
s:=a+b+c;
p:=a*b*c;
F:=(a+b+c)/3;
writeln ('s=',a+b+c);
writeln ('p=',a*b*c);
write ('F=',(a+b+c)/3:0:3);
end.
Сумму обозначила буквой s
Произведение обозначила буквой p
Среднее арифметическое обозначила буквой F

---

Можно с циклом while написать