Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Fgbjhjghhy1234567890
09.10.2021 15:43 •
Информатика
Среди чисел a,b,c есть хотя бы одна пара взаимно противоположных чисел. напишите программу в паскале abc
Показать ответ
Ответ:
liusen
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 оценок)
Популярные вопросы: Информатика
ambasaddor
12.06.2022 18:05
Визначте, чому дорівнює F після виконання циклу: F := 1; A:= 3; For i := 1 To 3 Do F:= F * A;...
Dashasdh
16.01.2023 06:27
Дано число. Определить, делиться ли оно на 12. Если делится, то проверить на делимость на 3 следующие за ним 8 чисел и вывести те, которые делятся. Составить блок-схему...
IgnatBakaev
10.02.2021 13:49
Елгілеңдер. Раім редакторында суретті көшіру үшін қандай батырманы пайда танабыз?АТЕрекшеле Выделить )Ә) Авару Копировать)АҚор в теить).Paint редакторында фигураның...
egoraga142
14.08.2020 12:10
Чему равны веса разрядов справа от точки, разделяющей целую и дробную часть, в двоичной системе счисления (восьмеричной, шестнадцатеричной)? -чему равны веса разрядов...
Нютикккк
01.10.2022 15:47
Pascal, написать программу, находящую площадь и периметр треугольника....
2720Елизавета0209
01.10.2022 15:47
В кодировке ASCII каждый символ кодируется 8 битами. Определите информационный объём сообщения в этой кодировке: Длина данного текста 32 символа....
калина007
17.01.2022 16:51
Найди длину всей ломаной, если длина первого звена 2дм, второго-1дм 8см, а третьего-12см....
Алёнка290613
17.01.2022 16:51
Сочинение о добре и зле не много !...
Аааааййййймммммм
17.01.2022 16:51
Составь 5 предложений по схеме подлежащее сказуемое обстоятельство определение союз и дополнение...
Phkgd
17.01.2022 16:51
Сos(pi/4+b)*cos(pi/4-b)-sin(pi/4+b)*sin(pi/4-b) b- бета...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.