Вопрос от посетителя
составить программу АВС проверить истенность высказывания:”Среди трех данных целых чисел есть хотя бы одна пара совпадающих”
Отвечает Илюха:
var a,b,c: integer;
begin
writeln(‘Введите 3 целых числа’);
read(a,b,c);
write(‘Среди трех данных чисел есть хотя бы одна пара совпадающих’);
if (a=b) or (a=c) or (b=c) then write(‘ – выражение истинно’) else write(‘ – выражение ложно’);
end.