Встреченно '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.

alexalu0402 alexalu0402    2   22.09.2019 20:00    2

Ответы
Tinochka173 Tinochka173  27.08.2020 01:58
После if a[i]=then n:=n+1 Не поставил ; после 1. внимательно пересмотри задачу
ПОКАЗАТЬ ОТВЕТЫ
abramson228 abramson228  27.08.2020 01:58
Var a, b : string; i, s, n: integer; begin n:=0; writeln('Введите слово'); readln(a); s:=length(a);  writeln('Слово = ',a); writeln('Количество букв: ', s); end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика