Найти среднее арифметическое всех положительных целых чисел от a до b (b>=a) ...

August 2022 1 5 Report

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

Answers & Comments

preceptor 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.

Answers & Comments

aleksandr 3 emu pripisyvayut slovakogda russkij car udit rybu evropa mozhet po

kto smozhet napishite reshenie lyubogo zadaniya oni v prikreplennom fajle srochno n

pochemu biogeocenoz ne mozhet sushestvovat bez kakoj libo funkcionalnoj gruppy or

pri podklyuchenii k bataree snachala rezistora s soprotivleniem r118 om a zatem

1dana stroka s opredelit i napechatat skolko simvolov 2dana stroka s vmest

рекомендуемые вопросы

Helpful Links

Helpful Social