Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Pikasso07
25.11.2020 01:44 •
Информатика
Среди чисел a,b,c есть хотя бы одна пара взаимно противоположных чисел. напишите программу в паскале abc
Показать ответ
Ответ:
altaeva81
26.08.2020 07:47
Program n1;
label t;
var a,b,c: integer;
begin
readln(a,b,c);
if a<>b then if abs(a)=abs(b) then goto t;
if a<>c then if abs(a)=abs(c) then goto t;
if b<>c then if abs(b)=abs(c) then goto t;
writeln('нет');
t:
writeln('есть');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
kirilzz623
27.08.2020 05:50
Для чего служит группа элементов таблица ссылок...
sinan1922abdullaev
08.09.2022 09:18
Исправить код (не сортирует масив). метод сортировки: выбором....
Ксюшкаа1
20.07.2020 06:27
Как спрогромировать програму в паскале такую : чтобы она из фунтов переводила в килограммы! ?...
catttttttttttttttttt
14.07.2022 22:10
Найти периметр n-угольника, заданного на плоскости координатами своих вершин. (написать функцию для нахождения длины стороны n-угольника). паскаль, через функции пользователя....
shoeva02
13.04.2022 06:22
Мини сочинение на тему компьютер на службе человека...
аладик2
27.09.2021 07:02
Какие народные обычаи и забавы нашли свое отражение в произведении Н. В. Гоголя? Свой ответ подтвердите приме- рами из текста....
вика3850
28.08.2022 09:39
VOCABULARY The comedy was very I couldn t stop laughing.boringinterestingsadThat action film was so funnyfrighteningThe horror film wasEveryone was scared.excitingLIGHTSCAMERAACTION!...
omka02
12.03.2023 18:58
Ядро радіоактивного атома 90 Th229 перетворилося на ядро атома 83Bi209. Скільки відбулося альфа і бета розпадів під час цього перетворення??? ...
Лолик1112
05.07.2021 09:40
Цкил не үшін алғы шартты деп аталды...
MorozilkAAA
24.06.2021 12:50
покажите разницу между типами нуклеидов и типами азотистых оснований в них. проанализируйте и установите зависимость типа водородной связи от пары комплементарного азотистого...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
label t;
var a,b,c: integer;
begin
readln(a,b,c);
if a<>b then if abs(a)=abs(b) then goto t;
if a<>c then if abs(a)=abs(c) then goto t;
if b<>c then if abs(b)=abs(c) then goto t;
writeln('нет');
t:
writeln('есть');
end.