Дан текст.Распечатать его по строкам,с заданным количеством в строке.

@Little_Sun · Регистрация: 05.01.2010

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

не поняла условие и что надо вообще сделать.(

@Inadequate · 05.01.2010, 14:34

Ну т.е. выводить побуквенно, пока количество букв меньше либо равно заданному k.

Добавлено через 3 минуты

Pascal

var
  f:text;
  count:integer;
  ch:char;
...
readln(k);
...
while not EOF(f) do
begin
  count:=0;
  while not EOLn(f) do
  begin
    read(f,ch);
    inc(count);
    if count<=k then
      write(ch)
    else
      break
  end;
  writeln(f)
end;
...

@Little_Sun 0 / 0 / 0 Регистрация: 05.01.2010 Сообщений: 20
		1
	Дан текст.Распечатать его по строкам,с заданным количеством в строке. 05.01.2010, 14:12. Показов 1129. Ответов 1 Метки нет (Все метки) не поняла условие и что надо вообще сделать.( 0

	05.01.2010, 14:34

Дан текст.Распечатать его по строкам,с заданным количеством в строке.

Решение