Две задачки Опции

[Unconnected]

Огоо, вот это бы я долго ловил..) Добавил в тот пост поправку.

[Dushka]

Почему-то результат теперь не показывает.

[Unconnected]

var oldest,c:char;
    oldestv,r:byte;
begin
  r:=1;
  read(oldest);
  oldestv:=ord(oldest)-ord('0');
  repeat
    read(c);
    if ((ord(c)-ord('0')) mod oldestv=0) and (c<>#13) then inc(r);
  until (c=#13);
  read(c);
  writeln(r);
  readln;
end.

У меня показывает..

[Dushka]

Мне предлагается все время вводить число

Сообщение отредактировано: Dushka - 16.06.2011 20:23

[Unconnected]

Ну так ввела число и энтэр вводи.)

[Dushka]

Ввожу, нажимаю и опять ввожу и опять нажимаю ....

[IUnknown]

Если у тебя PascalABC - то просто убери последний ReadLn, программа закончится сразу же после обработки введенного числа...

[Dushka]

не помогло

[IUnknown]

не помогло

Значит, выкини свой старый компилятор и возьми на сайте новый. Я СНАЧАЛА проверяю, ПОТОМ советую.

[Dushka]

запустила в делфи, заработало, спасибо, а можно теперь объяснить?

[Lapp]

var oldest,c:char;
    oldestv,r:byte;
begin
  r:=1;
  read(oldest);
  oldestv:=ord(oldest)-ord('0');
...

Ой, не по нутру мне это.. Препод, может, эту писанину и примет (я б - ни за что!)), но по большому счету - так нельзя..
А если я поставлю пробел перед вводом числа?.. или, если начну его с нуля? или введу в шестнадцатиричной форме, $25 или 0x25? И потом - кто сказал, что число положительное??.. или - что оно целое??? в условии этого нет.. В конце концов, нужно уметь хотя бы остановить программу по ошибке ввода, когда препод попробует "пошутить" и введет буковку - твоя прога прилееееежно все просчитает и выдаст чушь .

Уж либо ты пользуешь стандартный числовой ввод, либо сам обрабатываешь все подобные ситуации. А последнее, мне кажется, в данном контексте - просто абсурд )). Мне кажется, лучше вернуться к первому варианту ввода, но добавить обработку отрицательных и извиниться перед дамой, что ниасилил дробные (в надежде, что она уточнит условие, и они не понадобятся)).

[Unconnected]

$25 или 0x25

Не знаю, мне кажется не подразумевались в условии такие выкидоны) А поддержку отрицательных можно сделать незначительной доработкой(и буквы тоже ею отрезать, одним условием). Ну вообще ни разу тут не видел try-except в подобных задачках)

[Lapp]

Не знаю, мне кажется не подразумевались в условии такие выкидоны)

Какие это выкидоны? Пробел перед числом - выкидон? Минус - выкидон?.. Всегда, когда дашь человеку полный анализ всех аспектов - обязательно зацепится за самую незначительную деталь и начнет возражать вместо спасиба..

А поддержку отрицательных можно сделать незначительной доработкой(и буквы тоже ею отрезать, одним условием).

А кто сказал, что нельзя?