Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
лиод1
04.06.2023 08:22 •
Информатика
Даны целые числа m и n если числа не равны,то заменить каждое из них одним и тем же числом,равном большему из исходных,а если равны,то заменить числа нулями в паскале
Показать ответ
Ответ:
Karina902
03.07.2020 07:28
Var m,n:integer;
begin
readln(m,n);
if m<>n then
begin
if m>n then
n:=m
else
m:=n;
end
else
begin
m:=0;
n:=0;
end;
writeln(m,' ',n);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
alisaali200425
01.11.2020 06:53
Ребус в-ал па-мка нарисована рыба и буква к нарисована машина и буква р...
haikyuu24
03.02.2023 12:58
Клавиатура,сканер,микрофон образуют группу устройств...
yarabar
18.04.2020 18:20
Сколько времени будет скачиваться аудиофайл с размером 7200 кбайт при интернет соединение с максимальной скорости скачивания 192 кбит...
1MQL2
29.03.2021 09:17
Приведите примеры платформ CMS с высоким рейтингом. Напишите, почему их рейтинг высок?...
prostonick111237
17.10.2021 19:42
Найдите наименьшее значение входной переменной k, при котором программа выдаёт ответ 21. Для удобства мы показываем программу на пяти разных языках программирования....
KINDER123567
16.05.2023 22:02
186. Решите уравнение: а) (х + 4) = 25: в) (7 - x)^2 = 0;б) (х – 3) = 16; г) (9 +x) =- 4....
dbjshsg
16.05.2023 22:02
Заполни таблицу 60 70 10 50 +9...
shlykhta95
16.05.2023 22:02
Найти наименьший положительный период функции y=sinx; y= cosx; y= tgx; y=ctgx; y= cos3x; y= tg2x; y= cos x/3; y= sin x/2...
HuKuTKa228
29.11.2020 17:11
Когда возникает корлукское государство ?...
obuhovasveta
16.12.2020 12:37
«Горе от ума» 1.Как Грибоедов характеризует Максима Петровича? 2. Чем готов поступиться Фамусов, чтобы стать «вельможей в случае»? 3.Какое качество Фамусова здесь проявляется?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
readln(m,n);
if m<>n then
begin
if m>n then
n:=m
else
m:=n;
end
else
begin
m:=0;
n:=0;
end;
writeln(m,' ',n);
end.