Question

Elaborati un program in Pascal care radiaza din şir caracterul 'B'

Answer 1

var i,k,a:integer;s:string;b:array [1..10] of integer;beginreadln(s);a:=0;for i:=1 to length(s) doif s[i]='u' thenbegins[i]:='U';a:=a+1end;writeln(s,'  Litera u sunt ',a);end.

23f44e91aa077e6288653b0e97d1bb64.pas

47b377713aeae790e68a3fc9351f1c4e.txt