Регистрация
astakastaj
23.02.2022 17:11
Информатика
Есть ответ 👍

с технологией программирования. 5 и 6

276
323
Посмотреть ответы 1

Ответы на вопрос:

Rayanachechenka
Rayanachechenka
4,8(18 оценок)

7) cadabra

9)function max (x,y: longint): longint;

begin

 if x>y then max:=x else max:=y;

end;

var k: longint; s: string;

begin

 readln(s);

 while (pos('.',s)<>0)or(pos('!',s)<>0)or(pos('?',s)<>0) do

begin

  k:=k+1;

  Delete(s,max(max(pos('.',s),pos('!',s)),pos('?',s)),1);

end;

 writeln(k);

end.

Популярно: Информатика