Вывести на экран названия команд, которые набрали более 20 очков.

@МаксКибер · Регистрация: 05.10.2014

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

Создать файл данных про чемпионат России по футболу. Вывести на экран названия команд, которые набрали более 20 очков.

@Joy · 17.12.2014, 05:48

Pascal

var
  f:text;
  s:string;
  i,c:integer;
begin
  assign(f,'turnir.txt');
  reset(f);
  while not eof (f) do begin
    readln(f,s);
    val(copy(s,pos('|',s)+1,length(s)),i,c);
    if i>20 then writeln(copy(s,1,pos('|',s)-1));
  end;
  readln;
end.

файл turnir.txt:

Код

АНЖИ|45
ТОМЬ|42
ТОСНО|40
КРЫЛЬЯ СОВЕТОВ|38
ГАЗОВИК|33
ШИННИК|32
ЛУЧ-ЭНЕРГИЯ|30
ВОЛГАРЬ|29
ВОЛГА|28
ЕНИСЕЙ|28
СИБИРЬ|27
СОКОЛ|24
СКА-ЭНЕРГИЯ|24
ТЮМЕНЬ|21
БАЛТИКА|21
САХАЛИН|19
ХИМИК|16
ДИНАМО СПБ|13

@МаксКибер 0 / 0 / 0 Регистрация: 05.10.2014 Сообщений: 15
		1
	Вывести на экран названия команд, которые набрали более 20 очков. 16.12.2014, 15:26. Показов 1859. Ответов 1 Метки нет (Все метки) Создать файл данных про чемпионат России по футболу. Вывести на экран названия команд, которые набрали более 20 очков. 0

	17.12.2014, 05:48

Опции темы

Вывести на экран названия команд, которые набрали более 20 очков.

Решение