SaveText.Ru

Без имени
  1. Program qwerty;
  2. var a,k: integer;
  3. begin
  4. writeln ('Введите число');
  5. readln(a);
  6. while a<>0 do begin
  7. a:=a div 10;
  8. k:=k+1;
  9. end;
  10. Writeln ('Кол-во цифр: ',k);
  11. end.

Share with your friends:

Print