Условный оператор. Задача 5
Даны три целых числа. Определить, имеется ли среди них хотя бы одна пара равных между собой чисел.
Формат входных данных
Входной файл содержит три целых числа через пробел.
Формат выходных данных
Выведите 'YES' если это так, и 'NO' в противном случае.
Примеры:
Вход
544 935 911
Выход
NO
Ответы на вопрос
Ответил Аноним
0
uses crt;
var
a, b, c : integer;
begin
read(a,b,c);
writeln;
if (a=b) or (a=c) or (b=c) then
Write('Yes')
else
write('NO');
readkey;
end.
var
a, b, c : integer;
begin
read(a,b,c);
writeln;
if (a=b) or (a=c) or (b=c) then
Write('Yes')
else
write('NO');
readkey;
end.
Ответил mozg1992
0
Program m31;
var a,b,c:integer;
f,g: text;
begin
assign ( f,'input.txt');
reset(f);
read(f,a,b,c);
close(f);
assign(g,'output.txt');
rewrite(g);
if(a=b) or ( a=c) or (b=c) then write ( g, 'YES') else write (g,'NO');
close(g);
end.
var a,b,c:integer;
f,g: text;
begin
assign ( f,'input.txt');
reset(f);
read(f,a,b,c);
close(f);
assign(g,'output.txt');
rewrite(g);
if(a=b) or ( a=c) or (b=c) then write ( g, 'YES') else write (g,'NO');
close(g);
end.
Ответил Аноним
0
А зачем нужен вывод в блокнот? И где это написано в условии?
Новые вопросы