Задача 4 (посчитать количество четных слов в каждой строке)

Посмотреть архив целиком
4) процедура в строке удаляет лишнии пробелы и подсчитыает слова с четным количеством букв

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

procedure Izmen (var s:string;var chet:integer);
var i,p,kol:integer;
slovo:string;
begin
writeln('Vvedite stroku');
readln(s);

{удаление пробелов}
p:=pos(' ',s);
while p>0 do begin
delete(s,p,1);
p:=pos(' ',s);
end;
if s[1]=' ' then delete(s,1,1);
if s[length(s)]=' ' then delete (s,length(s),1);

s:=s+' ';
slovo:='';
chet:=0;
for i:=1 to length(s) do
if s[i]<>' ' then slovo:=slovo+s[i]
else begin if length(slovo) mod 2=0 then begin
chet:=chet+1;
slovo:='';
end
else slovo:='';
end;
writeln('kol-vo chet slov ',chet);
end;

var n,k,j:integer;
s:string;
begin
writeln('Vvedite kolichestvo strok');
readln(n);
for j:=1 to n do begin
Izmen(s,k);
end;
readln;
end.





Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.