Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
ZloYDedyskA
20.08.2020 16:05 •
Информатика
Программа abcpascal: ввести с клавиатуры два числа, если произведение этих чисел положительно, то найти их разность, а иначе найти их деление.
Ответ:
laskia
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 оценок)
Популярные вопросы: Информатика
рома1342
26.01.2021 02:57
Як створити сторінки сайту різного рівня?...
Kjabarovsk
10.03.2023 07:36
Как перевести в двоичную систему счисления следующие числа 689;75;94...
РюЛайон
04.02.2021 15:06
Задача. Бобру Джону нужно ехать из А в Е через В, С и D. Путешествуя из одного города в другой, он может сесть на поезд. Время поездки на поезда изображено на рисунке ниже....
darows
17.04.2023 04:51
Задача на C или Pascal (все данные ниже) можно на листике от руки Напишіть програму з захистом від введення неприпустимих даних: запитайте номер вашої групи(281), і надрукуйте...
Онелик
13.02.2021 09:16
Дано натуральне число n. Надрукуйте всі його дільники....
lap85928
28.11.2020 22:32
Задача на C или Pascal, можно на листике от руки Обчисліть значення суми 2,2+2,4+2,6+...+12,4....
lokator1
11.02.2020 13:41
Задача на C или Pascal, можно на листике от руки Обчисліть суму 2+4+6+…+548....
alkasalamatina
31.05.2020 03:24
Задача на C или Pascal, можно на листике от руки Знайдіть значення суми 5!+6!+...+11!, де n!=1*2…*n....
visskikross
25.03.2021 17:19
Вам не кажется, что «кирпичи» в этой «стене» немного расплющены? Попытайтесь поэкспериментировать с цветами контуров и заполнений прямоугольников. Убедитесь, что иллюзия...
паша5808989
10.09.2020 18:37
Определите время передачи файла размером 300 кбайт,если скорость передачи 256 бит/сек. ПОДРОБНО И С ФОРМУЛАМИ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
begin
var (a, b) := ReadReal2;
if a * b > 0 then Println(a - b)
else Println(a / b)
end.