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

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

Question

Информатика

Виктор

25 августа, 22:29

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

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

+1

Ответы (1)

Знаете ответ?

Надеждушка · Answer 1

Var

a, b:real;

Begin

Write ('Введите два числа: ') ; ReadLn (a, b) ;

if (a > 0) and (b > 0) then Write ('Sr = ', (a+b) / 2)

else Write ('Sum = ', a+b)

End.

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

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

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