Question

Написать программу, которая подсчитывает количество введённых символов(букв) в тексте, не учитывая пробелов, используя язык программирования "Pascal".

Answer 1

Var s: string; i, count: integer;
begin 
    write('Введите текст: '); readln(s); 
    for i := 1 to length(s) do   
        if(s[i] <> ' ') then inc(count); 
    writeln('Кол-во символов: ', count);
end.

Answer 2

Вот пример программы на языке программирования Pascal, которая подсчитывает количество символов (букв) в тексте, не учитывая пробелы:

pascalCopy code
program CountCharacters;

var
  text: string;
  characterCount: integer;
  i: integer;

begin
  characterCount := 0;  // Инициализируем счетчик символов
  
  writeln('Введите текст: ');
  readln(text);
  
  // Перебираем каждый символ в строке
  for i := 1 to length(text) do
  begin
    if not (text[i] in [' ', #9, #10, #13]) then
    begin
      // Если символ не является пробелом, символом табуляции или символами новой строки,
      // увеличиваем счетчик символов
      characterCount := characterCount + 1;
    end;
  end;
  
  writeln('Количество символов (букв) без учета пробелов: ', characterCount);
end.

Эта программа сначала запрашивает у пользователя ввод текста, а затем перебирает каждый символ в тексте. Если символ не является пробелом, символом табуляции или символами новой строки, то программа увеличивает счетчик символов. В конце программа выводит общее количество символов (букв) без учета пробелов.