Question

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

Answer 1

Program num1;
Uses crt;
Var
a,b,c : real;
Begin
clrscr;
write('a=');readln(a);
write('b=');readln(b);
write('c=');readln(c);
if (a=b) or (b=c) or (c=a) then write ('Высказывание <Среди трех данных целых чисел есть хотя бы одна пара совпадающих> истино')
else write('Высказывание <Среди трех данных целых чисел есть хотя бы одна пара совпадающих> ложно');
End.