Информатика, опубликовано 2018-08-22 23:32:52 by Гость
Составте программу найдите среднее арифметическое двух целых чисел, если эти числа положительны, и суммы этих чисел-в противном случае
Ответ оставил Гость
Var a,b,c: integer;
read (a,b);
if a>0 and b>0
then c:=(a+b)/2
else c:=(a+b)
write (c);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на