Program Boolean18;
Var
A, B, C: Integer;
Begin
ReadLn(A, B, C);
WriteLn((A = B) Or (B = C) Or (A = C));
end.
Похожие записи/страницы:
- Проверить истинность высказывания: «Среди трех данных целых чисел есть хотя бы одна пара взаимно…
- Определить, имеется ли в заданном целочисленном массиве A(N) хотя бы одна пара совпадающих по значению чисел -…
- Даны два целых числа: A, B. Проверить истинность высказывания: «Хотя бы одно из чисел A и B нечетное» - Pascal(Паскаль)
- Проверить истинность высказывания: «Хотя бы одно из чисел A и B нечетное» - Pascal(Паскаль)
- Проверить истинность высказывания: «Хотя бы одно из чисел A, B, C положительное» - Pascal(Паскаль)
- Определить, имеется ли в заданном целочисленном массиве A(N) хотя бы одна пара совпадающих по значению чисел -…
- Даны три целых числа: A, B, C. Проверить истинность высказывания: «Хотя бы одно из чисел A, B, C положительное»…
- Даны два целых числа: A, B. Проверить истинность высказывания: «Ровно одно из чисел A и B нечетное» - Pascal(Паскаль)