Определить среднее арифметическое двух чисел, если a положительное, в противном случае найти частное этих чисел
Zoomf
3
26.03.2020 11:14
16
Другие вопросы по теме Информатика
KOJIOCOK
07.04.2020 14:58
dariaa3
07.04.2020 14:57
katerok23092000
27.04.2020 10:29
Timuar
27.04.2020 10:29
Finikotik
21.05.2019 08:40
228466
21.05.2019 08:40
SIHGFI
29.06.2019 15:07
veragerasimova3
01.06.2019 05:20
2261747
17.04.2019 01:40
Популярные вопросы
- Дайте развернутый ответь, используя Попс-формулу верно ли утверждение у природы...
3 - Углерод может образовывать 2 оксидов разного состава. Составьте формулу оксида серы...
3 - Было 500р. Потратили 45% всей суммы и 40% остатка. Сколько денег осталось? БЕЗ 10-тичных...
1 - Сообщение о герое защитника отечества...
2 - Ғажайып Гелиос мүсінін қоршаған ортамен, табиғатпен қалай байланыстырар едіңдер?...
3 - ответь на вопрос. 1: Докажи, что B1C1||BC 2: Найди AC1....
1 - Соч по физике до сдачи 2 часа 90 боллов...
2 - 7. Из 1600 кпит детской библиотеки 85% художественные, из них 70% на русском языке....
2 - Перечислите все целые числа расположенные между числами - 10,3 и 2, 3...
1 - 8. Найдите значение выражения: (- 64 + 39) (- 72 28) 153.ришите нужно ...
2
var a,b,c:integer;
begin
Writeln('Введите два числа: ');
Read(a,b);
if a>0 then
Writeln('Среднее арифметическое: ', (a+b)/2)
else Writeln('Частность: ', a/b);
end.