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

Question

Информатика

Фатьян

16 августа, 15:45

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

+4

Ответы (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.