Составить программу в Паскале. Даны три целых числа: a, b, c. Определить, имеется ли среди них хотя бы одна пара равных между собой чисел. Ввод данных осуществить через файл input.txt, а вывод в файл output.txt.
program CheckEqualNumbers va a, b, c: integer inputFile, outputFile: text begi 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) the writeln(outputFile, 'Yes' els writeln(outputFile, 'No') close(outputFile) end.
va
a, b, c: integer
inputFile, outputFile: text
begi
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) the
writeln(outputFile, 'Yes'
els
writeln(outputFile, 'No')
close(outputFile)
end.