Составьте по этой задаче блок схему Верно ли, что количество его цифр есть четное число, а само число не превышает b ?
Программа к этой задаче
var i,n,k,b: integer;
begin
write(' b = '); readln(b);
write(' n = '); readln(n);
i:=n; k:=0;
while i>0 do
begin
i:=i div 10; k:=k+1;
end;
if n<=b then writeln('число n не превышает ',b)
else writeln('число n больше ',b);
if (k mod 2) = 0 then writeln('число цифр = ',k,' - четное')
else writeln('число цифр ',k,' - нечетное');
end.

Vikohkaice    1   01.02.2021 23:55    3