Программа в Паскале ABC

[pav29293344]

Программа в Паскале ABC

ребят помогите составить алгоритм и написать программу по этому алгоритму:

1) Вводится последовательность чисел. Конец ввода - 0. Определить количество трехзначных чисел.

2) Вводится последовательность символов, конец ввода - Esc(код #27). Определить количество букв "b", стоящих после знаков препинания.

 

[Vladimir_S]

1) Вводится последовательность чисел. Конец ввода - 0. Определить количество трехзначных чисел.

Легко:

Var
 a,N:Integer;
Begin
 N:=0;
 Repeat
  Write('Next number: ');
  Readln(a);
  If (a<>0) and (Trunc(Ln(Abs(a))/Ln(10))=2) then Inc(N);
 Until a=0;
 Writeln('N= ',N);
 Readln
End.

Что касается второй задачи, то не берусь. Вот если бы в НОРМАЛЬНОМ Паскале (Turbo, Free) - тогда в шесть секунд. Но, поскольку там требуются команды модуля CRT, а эти извращенцы (авторы АВС) написали свой модуль, то я не знаю, будут ли работать команды KeyPressed, ReadKey и т.д. в этом изделии №2.