Elaboraţi un program care citește de la tastatură o secvenţă de caractere și afi șează pe ecran:
a) numărul cifrelor zecimale citite;
b) numărul cifrelor pare;
c) numărul cifrelor impare.
Caracterele introduse se separă prin acţionarea tastei . Sînt admise cifrele zecimale
0, 1, 2, ..., 9 și caracterul * care indică sfîrșitul secvenţei.
Ajutoor va rog

Question

a fost răspuns

Răspuns :

Boiustefask Boiustefask · Answer 1

Răspuns:

program caractere;

var c:char; nrcifre, pare, impare: integer;

begin

nrcifre:=0; pare:=0; impare:=0;

writeln(' * - STOP introducere date...');

write('introdu caracter: '); read(c);

while (c <> '*') do

begin

if (c>='0') and (c<='9') then inc(nrcifre);

if (c='0')or(c='2')or(c='4')or(c='6')or(c='8') then inc(pare);

if (c='1')or(c='3')or(c='5')or(c='7')or(c='9') then inc(impare);

write('introdu caracter: '); read(c);

end;

writeln('a) nr. de cifre introduse: ', nrcifre);

writeln('b) nr de cifre pare: ', pare);

writeln('c) nr de cifre impare: ', impare);

end.

Explicație:

Succese!