Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
аминат41
26.01.2023 15:11 •
Информатика
Даны два числа а и в. найти их произведение, если оба числа положительные, иначе найти сумму.
Показать ответ
Ответ:
Garri1209
07.10.2020 08:37
Var
i :integer;
a,b :real;
begin
write('Введите число А: ');readln(a);
write('Введите число B: ');readln(b);
if ((a>0) and (b>0)) then write(a*b)
else write(a+b);
readln;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
alisabugor
26.01.2020 05:02
Задача D: Системы счисления Сегодня Егор в школе проходил системы счисления, ему дали следующее определение представление числа в системе счисления: Представлением...
Нннннннн11
05.10.2022 10:50
Решите задачу на Паскале: разменять деньги (рубли) на следующие монеты: 5 рублей, 10 рублей и 1 рубль. Количество монет задается с клавиатуры...
никита2005216665
05.06.2023 19:16
Program massive объясните как тут всё работает и что означают все эти слова...
Саша13398
20.09.2022 04:52
, С PYTHON ОМ ЗА ТРИ ЗАДАЧКИ НАДЕЮСЬ НА СКОРЕЙШЕЕ РЕШЕНИЕ 1. Создайте новый файл Руthon. Подключите соответствующий модуль и создайте окно зеленого цвета с размерами...
Аолвлвьвтадвлвл
22.09.2021 02:24
Уисполнителя, который работает с положительными однобайтовыми двоичными числами, две команды, которым присвоены номера: 1. сдвинь влево 2. вычти 1 выполняя первую...
veraveta
22.12.2022 07:32
Составьте программу в паскале для нахождения суммы чисел кратных 7...
Леголаска
18.01.2020 22:35
Определите значение переменной a в результате выполнения фрагмента программы, представленного на языке паскпль : а : = 7 ; b : = -2 ; if a+b 0 then a: = a*b else a:...
olesamakridina
23.07.2022 09:19
Написать программу в паскале для возведения в квадрат если число меньше 3, и деление данного числа на 2 если число больше 5...
1gs1221
16.05.2021 05:26
Напишите уравнение и уравняйте методом электронного .укажите окислитель и восстановитель. na+h2so4(конц...
yuliyamusatova1
16.06.2021 23:01
От данных слов образуйте и запишите глаголы выделите приставки и суффиксы имя существительное соль боязнь тормоз газификация ликвидация электрификация имя прилагательное...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i :integer;
a,b :real;
begin
write('Введите число А: ');readln(a);
write('Введите число B: ');readln(b);
if ((a>0) and (b>0)) then write(a*b)
else write(a+b);
readln;
end.