Даны М, N, К.

Определить, какие две переменные равны. Если равных переменных нет, вывести соответствующее сообщение

Question

Информатика

Христинья

5 июня, 20:45

Даны М, N, К.

Определить, какие две переменные равны. Если равных переменных нет, вывести соответствующее сообщение

+1

Ответы (1)

Знаете ответ?

Никуша · Answer 1

Var m, n, k:integer;

begin

readln (m, n, k) ;

if m=n then writeln ('m = n')

else if m=k then writeln ('m = k')

else if n=k then writeln ('n = k')

else writeln ('Равных значений нет') ;

end.

Пример:

8 5 8

m = k

Даны М, N, К.Определить, какие две переменные равны. Если равных переменных нет, вывести соответствующее сообщение

Даны М, N, К.

Определить, какие две переменные равны. Если равных переменных нет, вывести соответствующее сообщение