Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Turbo Pascal] Задача.

Автор: Hellride 27.9.2009, 18:02

Даны 3 слова. Определить и вывести слова, которые состоят из 5 букв.

Автор: ИванМ 27.9.2009, 18:12

Код


uses crt;
var
str: array[1..3] of string;
i: integer;
begin
     clrscr;
     for i:=1 to 3 do
     begin
          write('Word #',i,'=');
          readln(str[i]);
     end;
     writeln('Result:');
     for i:=1 to 3 do
     begin
          if length(str[i])=5 then
             writeln(str[i]);
     end;
     readkey;
end.

Автор: Hellride 27.9.2009, 18:18

спасибо ИванМ