Составить программу в Паскале. Даны три целых числа: a, b, c. Определить, имеется ли среди них хотя бы одна пара равных между собой чисел. Ввод данных осуществить через файл input.txt, а вывод в файл output.txt.
Составить программу в Паскале. Даны три целых числа: a, b, c. Определить, имеется ли среди них хотя бы одна пара равных между собой чисел. Ввод данных осуществить через файл input.txt, а вывод в файл output.txt.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
var
a, b, c: integer;
inputFile, outputFile: text;
begin
assign(inputFile, 'input.txt');
reset(inputFile);
readln(inputFile, a, b, c);
close(inputFile);
assign(outputFile, 'output.txt');
rewrite(outputFile);
if (a = b) or (a = c) or (b = c) then
writeln(outputFile, 'Yes')
else
writeln(outputFile, 'No');
close(outputFile);
end.