Mail.ruПочтаМой МирОдноклассникиВКонтактеИгрыЗнакомстваНовостиКалендарьОблакоЗаметкиВсе проекты

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

Глеб Волчара Ученик (96), закрыт 2 месяца назад
Задание 3 для 2 подгруппы: Составить программу нахождения среднего арифметического чисел кратных трем из интервала от 1 до 100.

Контрольный пример:
Входные данные:
Введите целое число:
1
20
33
44
55
66
Выходные данные:
Среднее арифметическое значение чисел кратных трем = 49.5
Лучший ответ
Вячеслав Гуру (4816) 3 месяца назад
Это среднее, вообще-то, в уме моментально вычисляется как (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.
Остальные ответы
Похожие вопросы