Регистрация
kami179
17.11.2021 21:28
Информатика
Есть ответ 👍

Алгоритм сызыктуу деп аталат эгер ​

105
227
Посмотреть ответы 1

Ответы на вопрос:

denus16
denus16
4,8(72 оценок)
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.

Популярно: Информатика