Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
helppliz4
06.08.2020 00:00 •
Информатика
Программа abcpascal: ввести с клавиатуры два числа, если произведение этих чисел положительно, то найти их разность, а иначе найти их деление.
Показать ответ
Ответ:
nikasuper09
09.10.2020 04:35
PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018Внимание! Если программа не работает, обновите версию!
begin
var (a, b) := ReadReal2;
if a * b > 0 then Println(a - b)
else Println(a / b)
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
dasharuu
07.07.2020 10:27
Петя нарисовал в графическом редакторе paint восемь кружков три красных и пять синих.Сколько кружков у него получилось после выполнения следующего алгоритма действий? Сколько красных...
nik6pw
17.10.2021 15:18
Запишите букву а латинскую, 100 раз подряд. сдайте на проверку программу, которая выводит эту строчку без ковычекпаскаль...
KatyaSy
01.12.2022 15:43
Быстро нас баран иначе спалит...
elkenakate1221
09.08.2020 07:13
Какое слово скажет спрайт если ввести число 49...
Ннемо
28.10.2021 23:01
Вклассе 34 учеников. из них 19 человек занимаются в кружке, 9 — в биологическом, 10 не посещают эти кружки. сколько биологов увлекаются ?...
КатяКроцюк2003
16.03.2020 10:13
Создать программу в Python , которая показывает целое или дробное число...
Оператор2288
03.07.2020 03:11
РЕШИТЬ В ПИТОН !! Плотность воздуха убываний с высотой по закону о= р0е^-hz, где р - плотность на высоте h метров, р0 =1,29кг/м^3, z=1,25*10^-4. Напечатать таблицу зависимости...
zorlnaviitukp00zmd
07.04.2021 03:21
Чому Міо весь час сумує чого йому не вистачає?Міо,мій Міо...
drakonchik5005
07.04.2021 03:21
Үш бала орманға барды. Орманда жеміс-жидектер, құстар көп. Олар қыдырып жүріп, күннің қалай өткенін байқамай қалды. Енді үйлеріне қайтып келе жатыр. Ата-анасына не деп айтарын...
lnk88
20.04.2021 16:57
Какие существуют причинно-следственные связи между наследованием пола и кариотипом человека?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
var (a, b) := ReadReal2;
if a * b > 0 then Println(a - b)
else Println(a / b)
end.