Встреченно '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.
Встреченно '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.
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.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
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);
until false; // Endless loop
end.