Question

utilizand instructiunea repeat scrieti un program​

Answer 1

program brainly;

type digits = array[0..9] of char;

var  

c:char;

i,j:integer;

d:digits;

begin

d[0]:='0'; d[1]:='1';

d[2]:='2'; d[3]:='3';

d[4]:='4'; d[5]:='5';

d[6]:='6'; d[7]:='7';

d[8]:='8'; d[9]:='9';

j:=0;

repeat

readln(c);

for i:=0 to 9 do begin

if(c=d[i]) then begin  

j:=j+1;

end;

end;

until c='#';

writeln(j);

end.

Rezultat: