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

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

Question

Информатика

Марьяся

3 января, 01:22

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

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

+4

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

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

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

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