Question

Var s: string; i, c, b: integer; begin read(s); for i := 1 to Length(s) do case OrdAnsi(s[i]) of 48..57: c := c + 1; 192..255: b := b + 1; end; Writeln('Количество цифр в строке=', c); Writeln('Количество русских букв в строке=', b); end. сделайте эту задачу через if и без case пожалуйста!! на ABcpascale

Answer 1

Ответ:

Var

s: string;

i, c, b, t: integer;

begin

read(s);

for i := 1 to Length(s) do

begin

t := OrdAnsi(s[i]);

if t >= 48 then

if t <= 57 then

c := c + 1;

if t >= 192 then

if t <= 255 then

b := b + 1;

end;

Writeln('Количество цифр в строке=', c);

Writeln('Количество русских букв в строке=', b);

end.