Составьте алгоритм, который проверяет, равны ли 3 данных числа.

Question

Информатика

Ефрем

28 мая, 09:55

Составьте алгоритм, который проверяет, равны ли 3 данных числа.

+3

Ответы (1)

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

Петяня · Answer 1

Var a, b, c:integer; BeginWriteln ('Введите числа a b c ') ; Readln (a, b, c) ; If (a=b) and (b=c) and (c=a) then Write ('Числа равны') else Write ('Числа не равны') ; End.