Составе программу найдите среднее арифметическое двух целых чисел, если эти чис
Составе программу
найдите среднее арифметическое двух целых чисел, если эти числа положительны, и суммы этих чисел-в противном случае
Гость
Ответ(ы) на вопрос:
Гость Var a, b, c:integer;
begin
readln(a);
readln(b);
if a>0, b>0 then c:=(a+b) div 2;
writeln(c);
end.
Не нашли ответ?
Похожие вопросы