Предмет: Информатика,
автор: Pepe3
Составте программу
найдите среднее арифметическое двух целых чисел, если эти числа положительны, и суммы этих чисел-в противном случае
Ответы
Автор ответа:
0
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.
read (a,b);
if a>0 and b>0
then c:=(a+b)/2
else c:=(a+b)
write (c);
end.
Интересные вопросы
Предмет: Геометрия,
автор: vitalikvtanke21487
Предмет: Обществознание,
автор: anasinand20023
Предмет: Алгебра,
автор: annamirazh
Предмет: Биология,
автор: ЛизаСагунова