Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
ынпщщ357
27.02.2021 20:07 •
Информатика
С1) вводим число с клавиатуры если оно больше -5 или меньше 5 то вывести на экран ,,'' иначе '' 2)вводим с клавиатуры два числа если их произведение больше 0 то выводим на экран их разность иначе сумму
Показать ответ
Ответ:
dhcf12
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 оценок)
Популярные вопросы: Информатика
Шенявка
05.02.2022 02:18
Перечислите известные вам виды информации:...
SemyaTanya
02.11.2020 14:17
или 6 заданий мне нужно...
agzamov03
19.02.2023 13:06
Қонақтар әңгімесіне жазушы берілген үзіндіде оқырманына қандай шындықты жеткізгісі келді ...
zoobe1
12.09.2020 08:07
2+12(123*189+985)=ч фпварфасиавпвф пат пат...
VeZun4ik
14.04.2021 07:53
Составьте таблицу истинности...
alex27045
30.03.2023 11:59
Здравствуйте Первый и исправьте программу так, чтобы она считала количество введённых чисел 50, а ввод чисел с клавиатуры продолжается, пока мы не введем число «3»....
нрррлртптп
12.09.2020 08:07
1. Эсте сакталган,аталышка ээ, арналышы боюнча тектеш маалыматтардын тобу эмне деп аталат?А)кенейтилиш.Б) утилит.В) файл.Г) система.2. Принтерге басып чыгаруунун мункунчулугу...
innalemesh1
12.09.2020 08:07
Задание с фиксированным ответом. Какой минимальный объём дискового может занимать файл ответ...
arinasmail1
30.03.2023 11:59
Вычислите функцию y1=2x+3, y2=-2x-3, при значениях x: -7; -4; ...;23 и постройте сравнительную диаграмму значений y1 и y2....
lНанамиТянl
19.03.2023 19:36
1. Вычислить значения выражений 1) 125/%10 2) 125//100 3) 125//10%10 4) 4**2+pow(16, 0.5) 2. Вычислите значение вещественной переменной c при a = 2 и b = 3: а) с = a + 1 / 2 б)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.