Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
настя7387
09.06.2020 15:03 •
Информатика
Даны целые числа m и n.если числа не равны,то заменить каждое из них одним и тем же числом 5, а если равны,то заменить числа нулями.
Ответ:
derest
23.09.2020 17:59
Var m,n:integer;
begin
readln(a,b);
if a<>b then begin a:=5; b:=5; end
else begin a:=0; b:=0; end;
writeln(a:3,b:3);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
ainurka88akgmailcom
20.09.2021 13:38
Перевести из десятичной системы счисления в указанную с решением...
Lesawolk12
25.07.2022 16:43
подготовить ответ к зачету на вопрос Алгоритм. Свойства алгоритма. Возможность автоматизации деятельности человека. Показать на примере. по предмету Информационные технологии...
EvilVitaliy
13.07.2020 08:22
Архиваторлардын кандай турлери бар? Айырмашылыгы бар ма...
oytu
28.01.2023 06:28
Нужно написать программу на паскале...
Данилкамастре
27.06.2022 05:51
подготовить ответ к зачету на вопрос Архитектура персонального компьютера по предмету Информационные технологии...
ViShEnKalкрасная
26.06.2022 18:45
Составьте таблицу истинности...
ikstar
14.06.2020 13:16
Исправьте синтаксические ошибки в следующем фрагменте программы:...
VikaS11111
02.10.2022 20:27
подготовить ответ к зачету на вопрос Операционные системы и оболочки: графическая оболочка Windows по предмету Информационные технологии...
DANIL79NR
07.12.2020 21:15
Объясните ошибки в следующих записях на языке Pascal. 1) (1 or 0) 3 2) round(not(true)) 3) x= false*true+not x 4) d or d not b (переменные `b` и `d` имеют тип boolean)...
Katiei
21.02.2021 05:55
В прямоугольники вставить знак....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
begin
readln(a,b);
if a<>b then begin a:=5; b:=5; end
else begin a:=0; b:=0; end;
writeln(a:3,b:3);
end.