Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
юлия1924
19.04.2021 11:07 •
Информатика
Составте программу найдите среднее арифметическое двух целых чисел, если эти числа положительны, и суммы этих чисел-в противном случае
Показать ответ
Ответ:
FicusObiknovenniy
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 оценок)
Популярные вопросы: Информатика
пупс110
04.12.2021 02:02
1. Дан фрагмент электронной таблицы. В ячейку D1 введена формула =А1*3+C1/2.А)Напишите результат, который будет выведен в ячейке D1Б)Напишите результат, который будет...
artems242
24.06.2020 06:10
Посмотрите фото и скиньте ответ, решении не нужно...
elbrusikus
11.06.2021 23:29
решить Хотя бы 2 задания...
emilligrin
26.04.2023 11:05
Дайте ответ на данный вопрос...
CrazyMashin
17.09.2021 22:49
Выясните курс доллара. переведите рубли в доллары от 2 рублей до 200 рублей с шагом в 5 рублей.(решение в экселе нужно сделать)...
soz2019oy63um
10.08.2021 21:09
решить задачку, язык Python...
super123jack
20.10.2021 22:21
Ниже записан алгоритм. Получив на вход число x, этот алгоритм печатает два числа: L и M. Укажите наибольшее число x, при вводе которого алгоритм печатает сначала 9, а...
didlok
24.07.2021 02:11
Задача 2 Дано. Массив А, состоящий из двух элементов ноль и единица и квадратная матрица В два на два, состоящая из единиц. Вычислите их произведение. Математический...
hakimjon232
20.10.2021 22:21
Нужно переделать под паскаль x=[] y=[] nmax=50 with open ( 5.txt ) as f: for line in f: data=list(map(float, line.split())) x.append(data[0]) y.append(data[1]) x_sr=0...
ВоржеваСоня
18.09.2021 11:37
Pascal ABC.NET Очень нужно: Створити алгоритм і програму знаходження значення функції: z=7t+cos(t), якщо t=1.5m+sin(m), якщо m=3.5k^3+9.16, для серії значень k=7; k=4;...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.