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

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

Question

Сона

3 сентября, 01:47

+1

Ответы (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.

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