Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Цикл с предусловием

Автор: AngeLL 29.11.2007 23:15

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

Автор: Айра 29.11.2007 23:46

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

Автор: Tan 29.11.2007 23:57

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

Автор: Айра 30.11.2007 0:01

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

Хм.. думаю это можно сделать так:
if a in [10..99] then inc(s);

smile.gif

Автор: volvo 30.11.2007 0:17

Лучше

if (a > 9) and (a < 100) then
, потому как A должно быть описано не как byte -> при работе со множествами возможны глюки...

Автор: Tan 30.11.2007 0:19

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

Автор: AngeLL 30.11.2007 20:41

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