Это, конечно, ужасный вариант с "много Copy", но если надо ... Program primer4; var s:string; i,k:integer; begin writeln('подсчет количества глухих согласных в тексте'); writeln('введите текст'); readln(s); k:=0; for i:=1 to length(s) do if (copy(s,i,1)='к')or(copy(s,i,1)='п')or(copy(s,i,1)='с')or (copy(s,i,1)='т')or(copy(s,i,1)='ф')or(copy(s,i,1)='х')or (copy(s,i,1)='ц')or(copy(s,i,1)='ч')or(copy(s,i,1)='ш')or(copy(s,i,1)='щ') then k:=k+1; writeln(k); end.
Пример: подсчет количества глухих согласных в тексте введите текст подсчет количества глухих согласных в тексте 17
begin
readln(n);
//цикл for
s:=0;
i:=0;
for i:=1 to n do s:=s+i+1;
writeln(s);
//цикл while
s:=0;
i:=0;
while i<n do begin
i:=i+1;
s:=s+i+1;
end;
writeln(s);
//цикл repeat
s:=0;
i:=0;
repeat
i:=i+1;
s:=s+i+1;
until i=n;
writeln(s);
end.