Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
qwertyuiop342
08.05.2022 23:05 •
Информатика
Подалуйста. в программе паскаль, написать программу, которая сравнивает два действительных числа x, y. если x больше чем y находит их сумму, а произведение если это не так.
Ответ:
2000nmz
10.10.2020 03:07
Program n_1;
var x,y:double;
begin
read(x,y);
if x>y then x:=x+y
else x:=x*y;
writeln(x:0:5);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Viola320
06.04.2022 07:03
Напигите программу которая выводит на экран две сторки Hello и World...
Gfdsahjk
30.05.2021 00:51
Синформатикой, pascal abc напишите процедуру без функций и сложных операторов, которая cокращает дробь вида m\n, числитель и знаменатель дроби как изменяемые параметры...
EZno
22.12.2021 12:04
Гомологами являются: а)пентен-2 и бутен-2 б) хлорэтан и дихлорэтан в) пропанол и пропаналь г) 2-метилпропан и 2-метилбутен...
Oneganin
22.12.2021 12:04
Напишите не большую гумореску на укр.языке...
maksot2006ox6gx2
22.12.2021 12:04
Расстояние от города до посёлка равно 120 км. из города в посёлок выехал автобус. через час после этого вслед за ним выехал автомобиль, скорость которого на 10 км/ч больше...
fish1704
22.12.2021 12:04
Просклоняйте по падежам слова- свои, себя, этот...
ilshat22
22.12.2021 12:04
Билет (чоп) 1.человек-творец культуры 2.основные понятия гражданского права...
EnsteinMEGAMOZG
22.12.2021 12:04
Прямоугольный треугольник с катетами 6см и 12см вписан в окружность . найти её радиус и диаметр...
JokeHa
22.12.2021 12:04
Умножение одночлена на многочлен уравнение 10а-5=6(8а+3)-5а...
Сережа8910
22.12.2021 12:04
Около (полу) дня. пишется слитно или раздельно?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Program n_1;
var x,y:double;
begin
read(x,y);
if x>y then x:=x+y
else x:=x*y;
writeln(x:0:5);
end.