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

Question

Информатика

Ала

16 июля, 14:46

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

+4

Ответы (1)

Знаете ответ на вопрос?

Игорка · 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.