Задать вопрос Регистрация
Помочь другим

  • Дано натуральное четырехзначное число,верно ли, что все его цифры различны? Написать программу.

Ответы 1

  • var a,b,c,d,e:integer;beginread(a);b:=a mod 10;a:=a div 10;c:=a mod 10;a:=a div 10;d:=a mod 10;a:=a div 10;e:=a mod 10;if (b<>c) and (b<>d) and (b<>e) and (c<>d) and (c<>e) and (d<>e) then write('net povtorov')else write('est povtori');end.

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

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

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

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