Для одной строки в меня получаеся, а от для 4 не могу...
uses crt;
const
A = ['A'..'Z'] + ['a'..'z'];
var
n,i: Integer;
s: String;
j: Integer;
Num: Integer;
begin
Write('Vedite radoc: ');
readln(s);
end;
Write('Dlina slova: ');
ReadLn(n);
j := 0;
Num := 0;
for i := 1 to Length(s) do
if s[i] in A then
Inc(j)
else begin
if j = n then Inc(Num);
j := 0;
end;
if j=n then Inc(Num);
WriteLn('V radky ', Num, ' clov c dlinoy ', n);
ReadLn;
end.
М | Просьба соблюдать правила. Правила Форума, п.5, и правила раздела Задачи, п.2 |