Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 29.09.2013, 00:47   #1
joi_lacosta
Новичок
Джуниор
 
Регистрация: 26.09.2013
Сообщений: 11
По умолчанию Задачка

Привет всем))я решал очередную задачку,но не могу её дорешать,не пойму как сделать чтобы если я ввёл отрицательное число выводилось NO.Точнее как сделать чтобы он "реагировал" на отрицательное число.помогите.
УСЛОВИЕ:


Дано целое трехзначное число. Определить есть ли среди его цифр одинаковые.
Формат входных данных
Входной файл содержит неотрицательное трехзначное целое число.
Формат выходных данных
Выведите 'YES' если число содержит одинаковые цифры и 'NO' в противном случае.

РЕШЕНИЕ:
Код:

var n,a,b,c:integer;
f,g:text;
begin
assign(f,'input.txt');
assign(g,'output.txt');
reset(f);
rewrite(g);
repeat
readln(f,n);
until n>0;
a:=n div 100;
b:=(n mod 100) div 10;
c:=n mod 10;

if (a=b) and (b=c) and (a=c)  then write(g,'YES')
else write(g,'NO');

close(f);
close(g);
end.

Последний раз редактировалось Stilet; 29.09.2013 в 12:58.
joi_lacosta вне форума
Старый 29.09.2013, 01:56   #2
BDA
МегаМодератор
СуперМодератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Сообщений: 7,285
По умолчанию

Вообще, в условии сказано, что число неотрицательное.
Код:
var
  n, a, b, c: integer;
  f, g: text;
begin
  assign(f, 'input.txt');
  assign(g, 'output.txt');
  reset(f);
  rewrite(g);
  readln(f, n);
  a := n div 100;
  b := n mod 100 div 10;
  c := n mod 10;
  if (n < 0) or (a <> b) and (b <> c) and (a <> c) then
    write(g, 'NO')
  else
    write(g, 'YES');
  close(f);
  close(g);
end.
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
BDA на форуме
Старый 29.09.2013, 10:57   #3
joi_lacosta
Новичок
Джуниор
 
Регистрация: 26.09.2013
Сообщений: 11
По умолчанию

Цитата:
Сообщение от BDA Посмотреть сообщение
Вообще, в условии сказано, что число неотрицательное.
Код:
var
  n, a, b, c: integer;
  f, g: text;
begin
  assign(f, 'input.txt');
  assign(g, 'output.txt');
  reset(f);
  rewrite(g);
  readln(f, n);
  a := n div 100;
  b := n mod 100 div 10;
  c := n mod 10;
  if (n < 0) or (a <> b) and (b <> c) and (a <> c) then
    write(g, 'NO')
  else
    write(g, 'YES');
  close(f);
  close(g);
end.
СПАСИБО.ОЧЕНЬ ПОМОГ)
joi_lacosta вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Задачка!!! Аксинья Общие вопросы C/C++ 2 21.05.2009 21:38
Задачка на БД Paul Oakenfold Паскаль, Turbo Pascal, PascalABC.NET 5 15.05.2009 16:07
Задачка на С!!! Exorcist Помощь студентам 1 07.12.2008 21:15
Задачка SunKnight Паскаль, Turbo Pascal, PascalABC.NET 3 03.09.2008 20:44