Цикл с параметром-Pascal. Помогите, очень прошу.

Написать программу, которая находит среднее арифметическое последних цифр всех чисел от 1 до введенного n.

Question

Павлюня

17 декабря, 09:47

+4

Ответы (1)

Знаете ответ на вопрос?

Ефросиния · Answer 1

Var

i, n, s: integer;

begin

readln (n) ;

for i : = 1 to n do

s : = s + i mod 10;

writeln (s / n) ;

end.

Цикл с параметром-Pascal. Помогите, очень прошу.Написать программу, которая находит среднее арифметическое последних цифр всех чисел от 1 до введенного n.