Информатика, опубликовано 07.12.2019 22:24
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
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01