Фома
7 год назад
Составте программу
найдите среднее арифметическое двух целых чисел, если эти числа положительны, и суммы этих чисел-в противном случае
ОТВЕТЫ
Reletasch
Aug 15, 2019
Var a,b,c: integer;
read (a,b);
if agt;0 and bgt;0
then c:=(a+b)/2
else c:=(a+b)
write (c);
end.
read (a,b);
if agt;0 and bgt;0
then c:=(a+b)/2
else c:=(a+b)
write (c);
end.
266
Смежные вопросы:
