Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
voVIK2008
15.12.2022 15:37 •
Информатика
Составить блок-схему алгоритма и программу замены целых чисел x,y единицей, если они равны между собой и меньшим из них, если они не равны
Ответ:
13t2t
02.10.2020 21:38
//PascalABC.NET
var
x,y:integer;
begin
readln(x,y);
if x = y then begin
x:=1;
y:=1;
end
else
if x < y then
y:=x
else x:=y;
writeln(x,' ',y);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
RassvetZaGorami
26.05.2020 11:32
Если вы пройдёте по лабиринту, собирая двоичные числа и переводя их в десятичные, то в результате получите метафору, которая относится к чёрствому, нечувствительному человеку...
Вettу
20.08.2021 17:51
Вводятся 2 натуральных числа. Найти среднее арифметическое цифр каждого из них (создать рекурсивную функцию для нахождения среднего арифметического цифр произвольного натурального...
zbbzk
17.12.2022 20:14
Выбери верный ответ. Сетевые протоколы- QWERTY bbb IP ANM...
Asyu666
25.11.2022 21:14
Сколько информации (в кбайтах) содержит текст состоящий из 900 символов, если известно, что каждый символ кодируется двумя байтами. ответ округлить до сотых с решением,...
дариночка064
25.11.2022 21:14
Для хсохранения растрового изображения размером 1024x512 пикселей отвели 256 кбайт памяти. каково максимально возможное число цветов в палитре изображения? информатика...
гена81
28.11.2020 20:47
1. cd объем 700 мб весит 15 г. сколько будет весить набор таких дисков, необходимый для полного копирования информации с жесткого диска объемом 320 гбайт ? 2. скорость передачи...
адай6
18.09.2022 21:37
Выберите число, записанное в восьмеричной системе счисления: ( : 1) 7654321 888888 А7777 1111118 2.Укажите самое большое число из нижеприведённых: ( : 1) 100 (в двоичной с.с.)...
Deni11111111
21.10.2021 10:48
Алишер рисовал костюмы для каждого спрайта в проекте с встроенного графического редактора определите ситуацию в которой были нарушены авторские права...
agaeva974
20.02.2020 16:12
6. определите характеристики процессора: intel core i3-2405s 2.1ghz/4000mhz/4mbа). кеш-память-б). фирма-производитель-в). тактовая частота-г). название модели процессора-д). частота...
терминатор43
10.05.2022 13:50
Написать на паскале условие №2: ввод с клавиатуры последовательности чисел заканчивается вводом нуля, найти произведение этих чисел, нуль в последовательность не входит....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
var
x,y:integer;
begin
readln(x,y);
if x = y then begin
x:=1;
y:=1;
end
else
if x < y then
y:=x
else x:=y;
writeln(x,' ',y);
end.