Паскаль,составить программу: Найти равные значения из чисел a, b, c, если введенное число...

Question

Паскаль,составить программу: Найти равные значения из чисел a, b, c, если введенное число X больше 2, иначе вывести сообщение «поиск не состоялся»

Comments

Нужно писать поиск не состоялся, если нет равных значений?

Answer 1

Var
a, b, c, x: longint;
begin
writeln('Введите a, b, c и x:');
readln(a, b, c, x);
if (x > 2) then begin
if (a = b) then
writeln('a и b равны');
if (b = c) then
writeln('b и c равны');
if (a = c) then
writeln('a и c равны');
end
else
writeln('Поиск не состоялся');
end.

Comments

по моему, если одно из чисел А. Б. С меньше 2.

---

там написано, что надо найти равные значения из чисел a, b, c, если введенное число X больше 2, а не a, b и c меньше 2