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

Question

Информатика

Нимфодора

12 марта, 23:35

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

+5

Ответы (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.