Форум » Обработка символьных строк » Задача 2553(другой ответ) » Ответить
Задача 2553(другой ответ)
ssv_inform: Добрый день. В задаче №2553 получается ответ 721. Вот программа var f: text; s: string; p,k,n,i:integer; begin assign(f, 'c:/24.txt'); reset(f); while not eof(f) do begin readln(f, s); for i:=1 to length(s) do if s='J' then inc(k) else if s='E' then inc(p); if k>p then inc(n); end; close (f); write(n); end.
Ответов - 2
polyakovss: ... while not eof(f) do begin readln(f, s); k:=0; p:=0; for i:=1 to length(s) do ... Ответ: 482.
ssv_inform: Спасибо
полная версия страницы