Написать программу лёгкую в поскаль со всеми значениями

Написать программу лёгкую в поскаль со всеми значениями
Гость
Ответ(ы) на вопрос:
Гость
program cisla; uses crt; var m,n:longint; k:integer; begin; clrscr; writeln ('введите число='); readln (n); m:=n;  k:=0; while m<>0 do begin  k:=k+1; m:=m div 10; end; writeln ('в числе =',k,' цифр'); repeat until keypressed; end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы