Плмогите с информатикой ​

Question

Плмогите с информатикой ​

---

Answer 1

Ответ:

var s:string;

   n, count:integer;

begin

 readln(s);

 count:=0;

 while pos('.', s) > 0 do begin

   n:=pos('.', s);

   delete(s, n, 1);

   count:= count + 1;

 end;

 writeln(count);

 

end.

Объяснение:

Удачи в тесте :D

Comments

ааа

---

Я думал ты решаешь тест, так как там написано, что за это задание дают 3 балла, но видимо я ошибся.

---

в каком тесте ?

---

спасибо