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

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

Question

Информатика

Рувим

10 ноября, 07:12

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

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

+5

Ответы (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 введенного с клавиатуры.