Задача на символьный тип Опции

[SOKOLx]

Здраствуйте)
задача очень простая:
Написать программу, определяющую количество цифр во введенной с клавиатуры последовательности символов.
У меня он сравнивает только 1 символ введеный с клавиатуры, а как сделать чтобы он сравнивал все что я ввел?) Задачу обязательно делать через char...
вообщем вот я как сделал :

program one;
uses crt;
var
s:char;
i:integer;
begin
clrscr;
writeln ('Введите символы');
readln (s);
I:=0;
if  (ord(s)>=48)and(ord(s)<=57) then I:=I+1;
writeln ('Количество цифр=',I);
readln;
end.

Сообщение отредактировано: SOKOLx - 11.12.2007 22:07

[Айра]

Тебе же нужно несколько символов вводить ('1' - один символ, '23' - только один символ='2'), тогда необходимо создать цикл, в котором ты это будешь делать, например так:

var i: integer;
    ch: char;
begin
  i:=0;
  repeat
    writeln('введите символ');
    readln(ch);
    if ch in ['0'..'9'] then inc(i);
  until ch='.';  //условие выхода из цикла
  writeln('количество цифр: ',i);
end.

[SOKOLx]

блин вот я ппц тугодум сразу не продумал про цикл))))
спасибо большое

[volvo]

SOKOLx, вот здесь посмотри: Ввод с клавиатуры