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