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

Question

Информатика

Степура

24 августа, 19:08

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

+2

Ответы (1)

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

Александрушка · Answer 1

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.