• Помогите с заданием, в паскале просто плохо понимаю.

    question img

Ответы 1

  • var a,b,c:integer;begin  writeln('Введите три числа:');  readln(a,b,c);  if (a=b) and (b=c) then writeln('Все 3 числа одинаковые')  else  if (a<>b) and (b<>c) and (a<>c) then writeln('Нет одинаковых')  else writeln('2 числа одинаковых');end.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years