Объяснить работу программы(написать для чего каждая строка)

@DarkLord666 · Регистрация: 11.12.2013

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

Задача:
Дана строка,состоящая из нескольких предложений,заканчивающихся точкой,восклицательным,вопросительным знаками.Определить,сколько в строке предложений.

Код программы:

Pascal

var s: string;
    i, k: integer;
begin
  writeln('Enter string:');
  readln(s);
  k := 0;
  for i := 1 to length(s) do if s[i] in ['.', '!', '?'] then inc(k);
  writeln(k, ' sentences.');
  readln
end.

@ildwine · 22.02.2014, 21:17

Pascal

var s: string; {описываем переменную типа строка}
    i, k: integer; {описываем 2 переменных типа целое число}
begin {начало программы}
  writeln('Enter string:'); {выводим фразу Enter string}
  readln(s); {получаем значение строки с клавиатуры}
  k := 0; {количество = 0}
  for i := 1 to length(s) do
  {для индексов от 1 до длины строки}
  {если s[i] является точкой, вскл или вопросительным знаком, то}
  if s[i] in ['.', '!', '?'] then inc(k); {количество + 1}
  writeln(k, ' sentences.'); {выводим, что предлодений столько, сколько знаков препинаний .!?}
  readln
end.

@Cyborg Drone · 22.02.2014, 22:54

DarkLord666, обязательно темы плодить? Почему в этой теме Определить, сколько в строке предложений не задали свой вопрос?

@ildwine · 22.02.2014, 23:05

DarkLord666, ну да могли и там попросить разъяснений, а не создавать новую...

@Cyborg Drone Модератор 9871 / 5239 / 3306 Регистрация: 17.08.2012 Сообщений: 16,007
	22.02.2014, 22:54	3
	DarkLord666, обязательно темы плодить? Почему в этой теме Определить, сколько в строке предложений не задали свой вопрос? 0

@ildwine Супер-модератор 6192 / 2938 / 1300 Регистрация: 04.03.2013 Сообщений: 5,780 Записей в блоге: 1
	22.02.2014, 23:05	4
	DarkLord666, ну да могли и там попросить разъяснений, а не создавать новую... 0