ПОМОГИТЕ С ПАСКАЛЕМ 3 ЗАДАНИЕ ПО ИНФОРМАТИКЕ

Question

ПОМОГИТЕ С ПАСКАЛЕМ 3 ЗАДАНИЕ ПО ИНФОРМАТИКЕ

Глеб Волчара Ученик (96), закрыт 7 месяцев назад

Задание 3 для 2 подгруппы: Составить программу нахождения среднего арифметического чисел кратных трем из интервала от 1 до 100.

Контрольный пример:
Входные данные:
Введите целое число:
1
20
33
44
55
66
Выходные данные:
Среднее арифметическое значение чисел кратных трем = 49.5

Answer 1

Это среднее, вообще-то, в уме моментально вычисляется как (3+99)/2=51. Но вот ещё код на Паскале для проверки:

 var i, s: integer; 
begin 
  i := 3; 
  s := 0; 
  repeat 
    s := s + i; 
    i := i + 3 
  until i >= 100; 
  writeln(s / 33) 
end.

Или вот ещё совсем уж никудышная
программа с циклом for:

 var i, k, s: integer; 
begin 
  k := 0; 
  s := 0; 
  for i := 1 to 100 do 
    if i mod 3 = 0 then 
      begin 
        k := k + 1; 
        s := s + i 
      end; 
  writeln(s / k) 
end.