Подскажите наилудший вариант решения задачи.Не могу выбрать наилучший.
Задача должна быть с удобоворимым интерфейсом.В случае неправельного в вода
данных выдовать ошибку и возврацать к вводу.
Задача
Дано трехзначное число проверить если в нем повтаряющиеся цифры.
Полная версия: Задача про повтор цифр в числе
Хе-хе, проверяем введёную строку на предмет: трехзначное ли это число, если нет - посылаем юзверя ... в начало программы, или заставляем его вводить строку пока не умрёт или не введёт правильно.
Потом делим число на 10 - остаток это число единиц, результат делим на 10 - число десятков, результат - число сотен.
Полученные три числа сравниваем, попарно.
Потом делим число на 10 - остаток это число единиц, результат делим на 10 - число десятков, результат - число сотен.
Полученные три числа сравниваем, попарно.
Да тут вроде ничего другого и не придумать.
Сегодня на олимпиаде была похожая задача.
Число z=345
z div 100 = 3
345-3*100=45
45 div 10 = 4
45-4*10=5
5 div 1 = 5
Что-то наподобии!
Число z=345
z div 100 = 3
345-3*100=45
45 div 10 = 4
45-4*10=5
5 div 1 = 5
Что-то наподобии!
у меня когда -то лаба была!!! что-то типа того что написал AlaRic! ;D ;D
Можно хорошо множествами воспользоваться, чтобы проверить, встречалась ли такая цифра
Помогити сделать вывод ошибки и возвратк вводу если ввели буквы.
вот пробый текст.
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.
вот пробый текст.
Код
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.
nm,
Atos, а ты себя всегда хвалишь? 
Миха всегда рад помочь и посоветовать влюбом вопросе.
Миха так мы стобой потчти соседи мне дотебя ночь езды на поезде, я в Барнауле. В Омске у меня родственики есть.
Atos
Да, чего-то ты разошёлся, земляк :D
Да, чего-то ты разошёлся, земляк :D
Да это не я был!!!!!!! Одна юмористка из нашей группы постаралась! Убью юзерку!!!!!!!!!
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.