Введите с клавиатуры числа c и m. Если меньшим из них является c, но его значение положительно, найдите и выведите на экран среднее арифметическое значений этих чисел. Иначе, найдите и выведите сумму c и m.

Question

Информатика

Хрися

27 июня, 14:06

Введите с клавиатуры числа c и m. Если меньшим из них является c, но его значение положительно, найдите и выведите на экран среднее арифметическое значений этих чисел. Иначе, найдите и выведите сумму c и m.

+4

Ответы (1)

Знаете ответ на вопрос?

Гана · Answer 1

Program A3; varb, c, i, m:integer; a:real; beginwriteln ('Vvedi C') ; readln (c) ; writeln ('Vvedi M') ; readln (m) ; if c0 then begin a: = (c+m) / 2; writeln ('srednee arifmet = ', a) ; end; if c>m then writeln ('summa = ', c+m) ; end.