Дана строка определить сколько в ней * :;

Question

Информатика

Граня

10 июля, 21:56

Дана строка определить сколько в ней * :;

+2

Ответы (1)

Знаете ответ на вопрос?

Флоренция · Answer 1

Var

i, x, y, z:integer;

s:string;

begin

readln (s) ;

for i:=1 to length (s) do

begin

if s[i]='*' then x:=x+1;

if s[i]=':' then y:=y+1;

if s[i]='; ' then z:=z+1;

end;

writeln (' * ', x) ;

writeln (': ', y) ;

writeln ('; ', z) ;

end.