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

pav29293344 · 28.02.2013, 00:25

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

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

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

Vladimir_S · 02.03.2013, 09:50

Цитата:

Сообщение от pav29293344

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.

28.02.2013, 00:25	#1 (permalink)
pav29293344 Новичок Регистрация: 28.02.2013 Сообщений: 1 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Программа в Паскале ABC ребят помогите составить алгоритм и написать программу по этому алгоритму: 1) Вводится последовательность чисел. Конец ввода - 0. Определить количество трехзначных чисел. 2) Вводится последовательность символов, конец ввода - Esc(код #27). Определить количество букв "b", стоящих после знаков препинания.

28.02.2013, 00:25
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Вот полезные ссылки, по которым содержится похожая информация Программа вычисления интеграла на Паскале Программа на Паскале

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070