Программу на языке паскаль через boolean для решения следущей задаси: определить, имеется ли среди чисел a,b,c хотя бы одна пара взаимно противоположных чисел.
285
395
Ответы на вопрос:
Var a,b,c: integer; l: boolean; begin writeln('a, b, c: '); readln(a,b,c); l: =(a=-b)or(a=-c)or(b=-c); if l then writeln('yes') else writeln('no'); end. пример: a, b, c: 5 8 -5yes
Алг нач цел а ввод а если mod(а,3)=0 то вывод "да, делится" иначе вывод "нет, не делится" все кон
Популярно: Информатика
-
LoL228LoL228LoL22818.01.2023 02:49
-
витка902.08.2020 04:47
-
алиная225.06.2023 06:10
-
mikilinaf789030.10.2020 15:48
-
yanaiweey04.09.2020 11:20
-
nikitenkov2006608.03.2021 02:04
-
kripto12315.07.2022 04:45
-
hhjjkh12.08.2020 08:13
-
daudovam1713.11.2021 22:00
-
artem039522.11.2022 02:47