На сайте в режиме реального времени публикуются решения контестных задач сервиса Codeforces.
Загружайте свои решения( здесь ) прямо на сайте. Подробнее. Жду ваших решений
 

По разделам

 

Задача File 59


Дан символьный файл, содержащий по крайней мере один символ пробела. Удалить все его элементы, расположенные после последнего символа пробела, включая и этот пробел.

Код (Pascal)

program File59;
var
 S: String;
 F_in,F_out: File of Char;
 C:Char;
 i,Space:integer;
begin
  Write('File: ');
  Readln(S);
  Assign(F_in,S);
  Reset(F_in);
  Assign(F_out,'~'+S);
  ReWrite(F_out);
  i:=0;
  Space:=0;
  while (not eof(F_in)) do
   begin
    inc(i);
    Read(F_in,C);
    if (C=' ') then Space:=i;
   end;
  Reset(F_in);
  for i:=1 to Space-1 do
   begin
    Read(F_in,C);
    Write(F_out,C);
   end;
   Close(F_out);
   Close(F_in);
   Erase(F_in);
   Rename(F_out,S);
end.
									




File. Абрамян
File 1 Просмотров: 23
File 2 Просмотров: 18
File 3 Просмотров: 22
File 4 Просмотров: 18
File 5 Просмотров: 23
File 6 Просмотров: 13
File 7 Просмотров: 29
File 8 Просмотров: 11
File 9 Просмотров: 22
File 10 Просмотров: 18
File 11 Просмотров: 21
File 12 Просмотров: 28
File 13 Просмотров: 22
File 14 Просмотров: 15
File 15 Просмотров: 14
File 16 Просмотров: 21
File 17 Просмотров: 14
File 18 Просмотров: 17
File 19 Просмотров: 12
File 20 Просмотров: 17
File 21 Просмотров: 14
File 22 Просмотров: 12
File 23 Просмотров: 12
File 24 Просмотров: 13
File 25 Просмотров: 20
File 26 Просмотров: 16
File 27 Просмотров: 20
File 28 Просмотров: 21
File 29 Просмотров: 15
File 30 Просмотров: 17
File 31 Просмотров: 13
File 32 Просмотров: 14
File 33 Просмотров: 28
File 34 Просмотров: 21
File 35 Просмотров: 15
File 36 Просмотров: 13
File 37 Просмотров: 17
File 38 Просмотров: 22
File 39 Просмотров: 15
File 40 Просмотров: 16
File 41 Просмотров: 28
File 42 Просмотров: 19
File 43 Просмотров: 11
File 44 Просмотров: 22
File 45 Просмотров: 15
File 46 Просмотров: 12
File 47 Просмотров: 16
File 48 Просмотров: 15
File 49 Просмотров: 16
File 50 Просмотров: 17
File 51 Просмотров: 21
File 52 Просмотров: 13
File 53 Просмотров: 12
File 54 Просмотров: 13
File 55 Просмотров: 21
File 56 Просмотров: 14
File 57 Просмотров: 14
File 58 Просмотров: 20
File 59 Просмотров: 12
File 60 Просмотров: 16

Комментарии

Чтобы написать комментарии вам нужно войти в систему или зарегистрироваться