Информатика. Паскаль.

Подсчитать количество цифр числа N введенного с клавиатуры.

Question

Информатика

Милюша

15 октября, 06:30

Информатика. Паскаль.

Подсчитать количество цифр числа N введенного с клавиатуры.

+3

Ответы (1)

Знаете ответ на вопрос?

Виталина · Answer 1

Program P1;

uses crt; {Можно не писать, нужно для очистки экрана}

var n, i:integer;

begin

clrscr;

write ('Введите число ') ; readln (n) ;

while n>0 do

begin

n:=n div 10;

i:=i+1;

end;

writeln ('В введенной числе ', i, ' цифр') ;

end.

Информатика. Паскаль.Подсчитать количество цифр числа N введенного с клавиатуры.

Информатика. Паскаль.

Подсчитать количество цифр числа N введенного с клавиатуры.