Дописать в конец файла общее число содержащихся в нем строк

@YUliya-yaskina · Регистрация: 26.11.2010

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

Помогите решить задачу. ПЛИИИИИИЗЗЗЗ!!!!!!!!!!!!!!!!!!
Написать программу, которая позволяет дописать в конец файла общее число содержащихся в нем строк, а также количество начинающихся с пробела.

@Sir_Zeron · 26.11.2010, 23:52

Pascal

var yulya1, yulya2 : text;
    n,m : byte;
    s : string;
 
 
begin
Assign(yulya1,'textfile.txt');
 Reset(yulya1);
 Assign(yulya2,'textfile.txt');
  Append(yulya2);
  while not eof (yulya1) do
   begin
     inc(n);
     Readln(yulya1,s[1]);
     if (s[1]=#32) then inc(m);
   end;
 writeln(yulya2,'Number of rows =',n,' Number of rows, where the first symbol - space =',m);
 close(yulya1);
 close(yulya2);
 
 end.

@YUliya-yaskina · 28.11.2010, 15:44 **[ТС]**

Сообщение от Sir_Zeron

Pascal

var yulya1, yulya2 : text;
    n,m : byte;
    s : string;
 
 
begin
Assign(yulya1,'textfile.txt');
 Reset(yulya1);
 Assign(yulya2,'textfile.txt');
  Append(yulya2);
  while not eof (yulya1) do
   begin
     inc(n);
     Readln(yulya1,s[1]);
     if (s[1]=#32) then inc(m);
   end;
 writeln(yulya2,'Number of rows =',n,' Number of rows, where the first symbol - space =',m);
 close(yulya1);
 close(yulya2);
 
 end.

спАААААААААААААСИИИИИИИИИИИИБООООО БОЛЬШОЕ!!!!!!!!!!!!!

@YUliya-yaskina 0 / 0 / 1 Регистрация: 26.11.2010 Сообщений: 4
		1
	Дописать в конец файла общее число содержащихся в нем строк 26.11.2010, 19:39. Показов 1154. Ответов 2 Метки нет (Все метки) Помогите решить задачу. ПЛИИИИИИЗЗЗЗ!!!!!!!!!!!!!!!!!! Написать программу, которая позволяет дописать в конец файла общее число содержащихся в нем строк, а также количество начинающихся с пробела. 0

	28.11.2010, 15:44

Дописать в конец файла общее число содержащихся в нем строк

Решение