Составте программу

найдите среднее арифметическое двух целых чисел, если эти числа положительны, и суммы этих чисел-в противном случае

Question

Емилия

16 июля, 17:50

+3

Ответы (1)

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

Кузьма · Answer 1

Var a, b, c: integer;

read (a, b) ;

if a>0 and b>0

then c: = (a+b) / 2

else c: = (a+b)

write (c) ;

end.

Составте программунайдите среднее арифметическое двух целых чисел, если эти числа положительны, и суммы этих чисел-в противном случае