Question

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

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!