Регистрация
Galina2617
03.11.2021 22:03
Информатика
Есть ответ 👍

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

261
497
Посмотреть ответы 3

Ответы на вопрос:

Юлия45684
Юлия45684
4,4(1 оценок)
Var a, b : string;   i, s, n: integer;   begin  n: =0;   writeln('введите слово');   readln(a);   s: =length(a);     writeln('слово = ',a);   writeln('количество букв: ', s);   end.
andreevaangel578976
andreevaangel578976
4,4(9 оценок)
После if a[i]=then n: =n+1 не поставил ; после 1. внимательно пересмотри
2РАД11
2РАД11
4,7(78 оценок)
Program pr1; var n,min,a,i: integer; begin readln(n); readln(a); min: =a; for i: =2 to n do begin readln (a); if a< min then min: =a; end; writeln(min); end.

Популярно: Информатика