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.