Составить программу АВС проверить истенность высказывания:"Среди трех данных целых чисел есть хотя бы одна пара совпадающих"

Question

Составить программу АВС проверить истенность высказывания:"Среди трех данных целых чисел есть хотя бы одна пара совпадающих"

Гость

Ответ(ы) на вопрос:

Accepted Answer

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.