SHARE
TWEET

N2_podgotov

a guest Mar 26th, 2020 65 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. //Программа, которая считывает число и выводит кол-во цифр в десятичной записи этого числа
  2.  
  3. var x, c : integer;
  4. begin
  5.     readln(x);
  6.     c := 0;
  7.     while (x > 0) do
  8.     begin
  9.         inc(c); //c := c + 1;
  10.         x := x div 10; //тут может быть любое основание системы счисления
  11.     end;
  12.     writeln(c);
  13.    
  14.     //x: 1625 -> 162 -> 16 -> 1 -> 0
  15.     //c: 0    -> 1   -> 2  -> 3 -> 4
  16. end.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top