Question

Составить программу, которая посчитает количество букв в слове Ашхабад (Паскаль)

Answer 1

Ответ:

program CountLetters;

var

 word: string;

 count: integer;

begin

 word := 'Ashgabat';

 count := 0;

 for var i := 1 to length(word) do

   count := count + 1;

 writeln('The word "', word, '" contains ', count, ' letters.');

end.

Answer 2

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

pascalCopy code
program CountLetters;
uses crt;

var
  word: string;
  count: integer;

begin
  clrscr;
  
  word := 'Ашхабад';
  count := 0;
  
  for var i := 1 to Length(word) do
  begin
    // Проверяем, является ли символ буквой
    if IsLetter(word[i]) then
      Inc(count);
  end;
  
  writeln('Количество букв в слове "', word, '": ', count);
  
  readln;
end.

Программа использует встроенную функцию IsLetter, которая проверяет, является ли символ буквой. Здесь Length(word) возвращает длину строки word, а Inc(count) увеличивает значение count на 1. В итоге программа выводит количество букв в слове "Ашхабад".