Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
котик957
21.10.2020 05:06 •
Информатика
С1) вводим число с клавиатуры если оно больше -5 или меньше 5 то вывести на экран ,,'' иначе '' 2)вводим с клавиатуры два числа если их произведение больше 0 то выводим на экран их разность иначе сумму
Показать ответ
Ответ:
LunnayaLiliya
06.10.2020 02:37
')
else WriteLn('???');
End.
Var a,b:real;
Begin
Write('a = ');ReadLn(A);
Write('b = ');ReadLn(B);
if a*b > 0 then WriteLn('a - b = ',a-b)
else WriteLn('a + b = ',a+b)
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
airflash1372
05.12.2020 04:38
Перевести числа из десятичной системы счисления в двоичную: 78, 112, 347, 230, 612, 395, 789, 178, 256, 800....
klimkravcnko
05.12.2020 04:38
Эта фигура получается при использовании в ms paint инструмента прямоугольник и удержаний клавиш shift...
EllyGriendfil
26.02.2021 14:25
Чем отличается жк монитор от элт монитора...
Влад1111111111111121
14.01.2023 21:31
Считая, что каждый символ кодируется 16-ю битами, оцените информационный объем следующей пушкинской фразы в кодировке unicode: привычка свыше нам дана: замена счастию она....
IKramarenko
29.01.2022 06:58
Считая, что каждый символ кодируется одним байтом, оцените информационный объем следующего предложения белеет парус одинокий в тумане моря голубом!...
Karina1706kesa
03.10.2021 07:17
Сор по информатике 11клас за 1 четверть...
nastyabodrova1
23.03.2021 00:31
Мебельная фабрика изготовила 1400 кресел. Из них 24% составляли кресла,обтянутые искусственной кожей. Сколько таких кресел было изготовлено?...
Veronika234629
05.11.2021 16:56
Даны предложения на баскском языке и их переводы на русский: Zuk liburu poltsara sartzen duzu. Ты кладёшь книгу в сумку. Gu sartu gara. Мы вошли. Guk umeak esnatzen ditugu. Мы будим...
Patriot73
31.05.2023 00:48
ОДНККакое поручение дает император Михаил Константину?Что создает Константин при Божией?Как продолжил Мефодий дело своего брата Кирилла?Какое значение имела для Руси деятельность...
flash2050p08smf
12.06.2021 05:18
Раскрой скобки и упрости выражение. (5,4x+14y)+(−8,9y−19x) = -13.6x+5.1yx + ___y(Если коэффициент при переменной равен 1, то его нужно записать в окошко для ответа!)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
else WriteLn('???');
End.
Var a,b:real;
Begin
Write('a = ');ReadLn(A);
Write('b = ');ReadLn(B);
if a*b > 0 then WriteLn('a - b = ',a-b)
else WriteLn('a + b = ',a+b)
End.