Вывести на экран все слова, которые имеют парное количество букв

@armagedonks · Регистрация: 22.01.2011

Помогите пожалуйста решить задачу, очень прошу:
Розробити програму що виводить на екран вси слова ,яки мають парну килькисть букв.

Комментарий модератора

Переводите свои задания на русский язык

Разработать программу, которая выводит на экран все слова, которые имеют парное количество букв

@ZevsNet · 22.01.2011, 14:35

В следующий раз пользуйтесь хотябы транслитом!... А то задание не так понял и решил сначало не так как нужно было!

Pascal

var
   str:string;
   text:string;
   FinalStr:string;
   i:integer;
   len:integer;
 
begin
writeln('Введите строку:');
readln(str);
str:=str+' ';
text:='';
FinalStr:='';
for i:=1 to length(str)do
    if (str[i]<>' ') then text:=text+str[i]
    else
    begin
    len:=length(text);
        if(len mod 2=0) then  FinalStr:=FinalStr+text+' ';
        text:='';
    end;
    writeln('Слова с четным количеством букв:',FinalStr);
end.

Опции темы

Вывести на экран все слова, которые имеют парное количество букв

Решение