Святослав
6 год назад
программу на языке паскаль через boolean для решения следущей задаси: определить, имеется ли среди чисел a,b,c хотя бы одна пара взаимно противоположных чисел.
ОТВЕТЫ
Kaesasada
Jun 29, 2019
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 -5
Yes
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 -5
Yes
64
Смежные вопросы:
