Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
AlinaRaytman
15.01.2023 14:05 •
Информатика
Составте программу найдите среднее арифметическое двух целых чисел, если эти числа положительны, и суммы этих чисел-в противном случае
Показать ответ
Ответ:
алиса2343
04.10.2020 03:38
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.
0,0
(0 оценок)
Популярные вопросы: Информатика
Rika2468
07.07.2022 14:16
Ребят что это значит . содержимое ячейки целевой функции должно быть формулой. Но ведь в той ячейки стоит формула...
sooooooyeees
11.03.2021 08:46
1) Некоторые числа X и Y из десятичной системы счисления перевели в системы счисления с основаниями 16, 8. Часть символов при записи утеряна. Позиции утерянных символов...
sashasasha404
19.05.2021 19:43
Задание #1 Вопрос:Какое предложение не является высказыванием?Выберите один из 4 вариантов ответа:1) Рукописи не горят2) 10112 = 1 * 23 + 0 * 22 + 1 * 21 + 1 * 203)...
ritteru
29.07.2022 03:05
Найдите ошибки паскальprocedure fn(s: string); var i: integer; beginreadln(s); for i to length(s) dobeginif copy(s,i,5)= минус ; thendelite(s,i,5); insert( плюс...
Азик1166
05.10.2021 11:36
Склавиатуры вводится расстоянии в сантиметрах (не менее трёхзначного числа) выразить это расстояние в метрах и сантиметрах, вывести результат выполнения на экран...
YULEMESLEILAA
21.03.2021 02:15
Распределите перечисленные ниже программные средства на 3 группы...
jsdfsg
26.11.2022 13:59
Информатика 7 класс тема4,урок22...
asel07071
15.03.2021 00:45
Ануар решил создать скрипт в игровой среде на отрывок а. с. пушкина * руслан и людмила* . ему понравилось 2 строчки из поэмы * у лукоморья дуб зеленый* . ануару...
маргарита209
09.02.2022 04:35
1. Послідовність дій, записана на спеціальній мові і призначена для виконання комп ютером - це ... файлконфігураціяпрограмакоманда2. Що таке псевдокод? Справжня...
ochensad
23.11.2021 04:33
Позначте логічні вирази, що набувають значення True (Істина) при х = 5, у = −3: *...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
read (a,b);
if a>0 and b>0
then c:=(a+b)/2
else c:=(a+b)
write (c);
end.