Ответы 1
PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var s1:=ReadlnString;
if s1='STOP' then Writeln(0)
else begin
var k:=1;
ReadSeqStringWhile(t->t<>'STOP').ForEach(w->if w=s1 then k+=1);
Writeln(k)
end
end.
Внимание! Если программа не работает, обновите версию!
begin
var s1:=ReadlnString;
if s1='STOP' then Writeln(0)
else begin
var k:=1;
ReadSeqStringWhile(t->t<>'STOP').ForEach(w->if w=s1 then k+=1);
Writeln(k)
end
end.
Премиум статус
Получайте самые быстрые
ответы на свои вопросы
ответы на свои вопросы
У вас остались
вопросы?
вопросы?