Найти среднее арифметическое всех положительных целых чисел от a до b (b больше =a) Если таких чисел нет то вывести сообщение "Таких чисел нет"Программа на Паскале (net или abc)

Найти среднее арифметическое всех положительных целых чисел от a до b (b>=a) Если таких чисел нет то вывести сообщение "Таких чисел нет" Программа на Паскале (net или abc)
Гость
Ответ(ы) на вопрос:
Гость
Program Task; Const a = 5; b = 10; Var i, c, d: Integer; Begin If a > b Then WriteLn('Ошибка') Else Begin For i := a To b Do If i > 0 Then Begin c := c + i; d := d + 1; End; If d > 0 Then WriteLn('Результат: ', (c / d):5:2) Else WriteLn('Таких чисел нет'); End; End.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы