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

Составе программу найдите среднее арифметическое двух целых чисел, если эти числа положительны, и суммы этих чисел-в противном случае
Гость
Ответ(ы) на вопрос:
Гость
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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы