Помогите составить программу.Все большие буквы заменить на маленькие и посчитать количество точек и запятых.

2
А строка состоит из англ букв или русских?
Комментарий удален

Ответы и объяснения

2013-11-09T12:22:30+04:00
Вот файлик открой с помощью блокнота, ну там для англ букв, если для русских надо в for поменяй A Z на А Я
Комментарий удален
номер в таблице аски возвращает
зачем прибусыввать велосипед если есть функция для этого?
я не помню ее, напомните, пожалуйста.
когда ты не помнишь какойто функции то что делаешь? правильно лезешь или в документацию или в гугл
2013-11-09T21:57:01+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.
Var
  s: string;
  i, coma: integer;

begin
  read(s);
  s := LowerCase(s);
  for i := 1 to length(s) do
    if (s[i] = '.') or (s[i] = ',') then coma := coma + 1;
  writeln(s);
  writeln(coma);
end.