Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
Даня0987853339
10.01.2021 04:11 •
Информатика
Информатику. ввести 2 числа ,найти их сумму и произведение ,если произведение окажется положительным ,то выдать его на экран,а иначе выдать на экран сумму.
Ответ:
sofaaa77
10.07.2020 20:24
Var
a,b:integer;
begin
readln(a,b);
a:=a*b;
if a>0 then
writeln(a)
else
writeln(a+b)
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Cfynks
16.02.2021 11:06
Всем привет. Всем здравствуйте. Разберите задание по операционную систему и средам ну что-то у меня не получается вообще...
vladus20012
05.11.2021 16:53
СОР ТЕКСТ ЗАДАНИЯ Выбери верные утверждения Верных ответов: 4 32%6=2 27%7=3 4**2=8 47/4=11 31//6=5 126//12=10 8**2=64 Назад Вперед...
псдрпл
10.08.2021 11:46
Написать программы) 1.дан массив 10 на 10,подсчитать сумму элементов расположенных на главной диагонали. 2.дан массив 10 на 10,найти наименьший элемент массива. за )...
sasha322322
05.10.2020 23:55
Чому дорівню D після виконання фрагмента програми. Вкажіть одну відповідь. Var D, і: Integer; begin D := 1; For і := 1 to 5 do D:=D*i; end; *...
svitlanatopp08vqs
15.08.2020 14:56
Американский профессор а.эллиас разработал модель обучения, основанную на концентрации знаний. она предполагает глубокое изучение академических дисциплин: естественных,...
Engineeeer
15.08.2020 14:56
=) мяч бросили с горизонтальной поверхности земли под углом к горизонту. минимальная скорость мяча во время полета была равна 6м/с, а максимальная 12м/с. на какую максимальную...
Дашулька1644
15.08.2020 14:56
На один окно требуется 3 одинаковых стекла.сколько окно можно застеклить,если есть 10 таких стёкол ? 20 стёкол ?...
ника2569
15.08.2020 14:56
Найдите значения выражения: (решайте понятно и подробно)...
svetlana50036
15.08.2020 14:56
Две окружности имеют общий центр. радиус одной окружности - 6см, а радиус второй окружности составляет семь двадцать четвертых диаметра первой. начертите эти окружности....
lizismik15
15.08.2020 14:56
Образуйте как можно больше однокоренных слов со словом luck...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
a,b:integer;
begin
readln(a,b);
a:=a*b;
if a>0 then
writeln(a)
else
writeln(a+b)
end.