Составе программу
найдите среднее арифметическое двух целых чисел, если эти числа положительны, и суммы этих чисел-в противном случае
Ответы
Ответ дал:
0
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.
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.
Похожие вопросы
2 года назад
2 года назад
7 лет назад
9 лет назад
9 лет назад
9 лет назад