Цикл с предусловием Опции

[AngeLL]

Помогите, пожалуйста решить задачку: С клавиатуры вводится последовательность целых чисел, пока не будет введено отрицательное число. Найти количество двузначных чисел.

[Айра]

А что именно непонятно?
Как выглядит цикл с предусловием думаю ты знаешь..
Проверить на двузначность можно, например, через if/else или помудрить с mod/div..


Сообщение отредактировано: Айра - 29.11.2007 23:51

[Tan]

Айра, а как ты хочешь предложить проверить на двузначность число типа integer используя if / else без mod / div ?

[Айра]

Айра, а как ты хочешь предложить проверить на двузначность число типа integer используя if / else без mod / div ?

Хм.. думаю это можно сделать так:

if a in [10..99] then inc(s);

[volvo]

Лучше

if (a > 9) and (a < 100) then

, потому как A должно быть описано не как byte -> при работе со множествами возможны глюки...

[Tan]

Конечно можно, я просто хотел предложить то же самое, на случай, если бы твоя идея была бы перебрать все двузначные фором и сравнивать, просто у коллеги по работе было похожее задание и он решил перебрать, хотя записать всё можно короче, как ты и сделала. AngeLL вы множества проходили ?

Сообщение отредактировано: Tan - 30.11.2007 0:19

[AngeLL]

Конечно проходили