Переписать в новый файл те слова, длина которых кратна заданному числу

@МАришка_6131 · Регистрация: 08.02.2010

Author24 — интернет-сервис помощи студентам

текстовый файл .Переписать в новый файл те слова, длина которых кратна заданному числу.

@koorya · 22.03.2010, 19:16

Pascal

uses crt;
var
   i:integer;
   s:string;
 
begin
     clrscr;
     writeln('vvedite chislo');
     readln(i);
     writeln('teper vvodite slova, exit - vihod iz programmi');
     assign(output,'new_file.txt');
     rewrite(output);
     while(s<>'exit') do
     begin
          readln(s);
          if length(s) mod i = 0 then
             writeln(s);
     end;
     close(output);
end.

@МАришка_6131 0 / 0 / 0 Регистрация: 08.02.2010 Сообщений: 14
		1
	Переписать в новый файл те слова, длина которых кратна заданному числу 22.03.2010, 18:41. Показов 1347. Ответов 1 Метки нет (Все метки) текстовый файл .Переписать в новый файл те слова, длина которых кратна заданному числу. 0

	22.03.2010, 19:16

Переписать в новый файл те слова, длина которых кратна заданному числу

Решение