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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
