Задача про повтор цифр в числе |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Задача про повтор цифр в числе |
Biowolf |
Сообщение
#1
|
Группа: Пользователи Сообщений: 4 Репутация: 0 |
Подскажите наилудший вариант решения задачи.Не могу выбрать наилучший.
Задача должна быть с удобоворимым интерфейсом.В случае неправельного в вода данных выдовать ошибку и возврацать к вводу. Задача Дано трехзначное число проверить если в нем повтаряющиеся цифры. |
Darkwolf |
Сообщение
#2
|
Новичок Группа: Пользователи Сообщений: 43 Пол: Мужской Репутация: 0 |
Помогити сделать вывод ошибки и возвратк вводу если ввели буквы.
вот пробый текст. Код PROGRAM zadacha1; uses crt; VAR N:integer;a,b,c:integer; BEGIN clrscr; WRITE('Vvedite chislo'); READLN(N); while n<100 do begin WRITEln('Oshibka. Vi Vveli slishkom malenikoe chislo '); WRITEln('Vvedite chislo'); READLN(N); end; while n>999 do begin WRITEln('Oshibka.Vi Vveli slishkom bolishoe chislo'); WRITEln('Vvedite chislo'); READLN(N); end; a:=n div 100 mod 10; b:=n div 10 mod 10; c:=n mod 10; IF (a=b) or (a=c) or (c=b) THEN WRITELN('Est povtor') ELSE WRITELN('Net povtorov'); READLN; END. |
Текстовая версия | 4.06.2024 4:41 |