Question

Встреченно 'end', а ожидалось ';' program n_1; var a, b : string; i, s, n: integer; begin n:=0; repeat writeln('Введите слово'); readln(a); s:=length(a); for i:=1 to s do begin if a[i]= then n:=n+1 end; if n>=2 then b:=b+' '+a; writeln('Слово',b); writeln('Количество букв: ', n); end.

Answer 1

После if a[i]=then n:=n+1 Не поставил ; после 1. внимательно пересмотри задачу

Answer 2

Var a, b : string; i, s, n: integer; begin n:=0; writeln('Введите слово'); readln(a); s:=length(a);  writeln('Слово = ',a); writeln('Количество букв: ', s); end.

Answer 3

Ваш код содержит несколько ошибок. Основные проблемы в вашем коде:

1. Ошибка сравнения символа: У вас встречается выражение if a[i]= then n:=n+1, но вы не указали, с чем нужно сравнивать a[i]=. Вам нужно указать символ, с которым вы хотите сравнивать a[i].

2. Ошибка в операторе if n>=2 then b:=b+' '+a;. Вы забыли добавить begin и end для тела оператора if.

3. Отсутствует оператор until для завершения цикла repeat.

4. Ошибка в выводе слова writeln('Слово',b);. Вы должны использовать writeln('Слова',b);, так как переменная b содержит не одно слово, а несколько слов.

Исправленный код может выглядеть следующим образом:

pascalCopy code
program n_1;
var
  a, b: string;
  i, s, n: integer;
begin
  n := 0;
  b := '';
  
  repeat
    writeln('Введите слово (для завершения введите "end"):');
    readln(a);
    if a = 'end' then
      break;
    
    s := length(a);
    for i := 1 to s do
    begin
      if a[i] = ' ' then
        n := n + 1;
    end;
    
    if n >= 2 then
      b := b + ' ' + a;
    
    writeln('Слова:', b);
    writeln('Количество букв: ', n);
  until false;
end.

Этот код позволяет вводить слова до тех пор, пока не будет введено слово "end". Он также подсчитывает количество пробелов в каждом введенном слове и сохраняет слова, в которых пробелов больше или равно 2, в переменной b.