Ответы 1
PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var (s,k):=(ReadlnString,0);
for var i:=1 to s.Length do
if s[i] in ['.',';','?'] then k+=1;
Writeln('Количество предложений равно ',k)
end.
Внимание! Если программа не работает, обновите версию!
begin
var (s,k):=(ReadlnString,0);
for var i:=1 to s.Length do
if s[i] in ['.',';','?'] then k+=1;
Writeln('Количество предложений равно ',k)
end.
Премиум статус
Получайте самые быстрые
ответы на свои вопросы
ответы на свои вопросы
У вас остались
вопросы?
вопросы?