Написать процедуру, которая считает количество знаков препинания в предложении.

@asdfmove · Регистрация: 16.04.2013

Author24 — интернет-сервис помощи студентам

Написать программу с процедурой.
Процедура должна считать количество знаков препинания в предложении.
Предложение вводится в самой программе.

@Paster Fob · 30.05.2013, 20:10

Pascal

const
  sn=['.',',','!','?','(',')',';',':','-','"'];
 
procedure CountPuncChar(var arg:string);
var
  i,count:integer;
begin
  count:=0;
  for i:=1 to length(arg) do
    if arg[i] in sn then
      inc(count);
  writeln('Кол-во знаков препинания в предложении = ',count);
end;
 
var
  s:string;
 
begin
  writeln('Введите предложение');
  readln(s);
  CountPuncChar(s);
  readln
end.

@asdfmove 0 / 0 / 0 Регистрация: 16.04.2013 Сообщений: 25
		1
	Написать процедуру, которая считает количество знаков препинания в предложении. 29.05.2013, 19:20. Показов 2937. Ответов 1 Метки нет (Все метки) Написать программу с процедурой. Процедура должна считать количество знаков препинания в предложении. Предложение вводится в самой программе. 0

	30.05.2013, 20:10

Написать процедуру, которая считает количество знаков препинания в предложении.

Решение