Задать вопрос
30 августа, 10:32

Язык программирования Pascal

Среди всех трёхназчных чисел посчитать количество кратных 5. Найти их среднее арифметическое.

+5
Ответы (1)
  1. 30 августа, 11:03
    0
    Var a, b, c:integer;

    begin

    b:=0;

    for a:=100 to 999 do begin

    if (a mod 5 = 0) then begin b:=b+1; c:=c+a; end;

    end;

    writeln ('чисел делящихся на 5 = > ', b) ;

    writeln ('среднее арифметическое чисел делящихся на 5 = > ', c/b) ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Язык программирования Pascal Среди всех трёхназчных чисел посчитать количество кратных 5. Найти их среднее арифметическое. ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы