Составьте программу, которая определяет число разрядов заданного натурального числа n (подсказка: сколько раз должна выполняться n=n div 10, чтобы получилось n=0)
Program n1; var c: longint; function ch(n: longint ): longint; var i: longint; begin i := 0; while n > 0 do begin n := n div 10; i := i + 1 end; ch:= i end; begin write ('Введите число: '); readln (c); if c<0 then c:=abs(c); writeln ('в этом числе ',ch(c),' разрядов '); end.
Биология: Основатель второй теории эволюции - Чарльз Дарвин; Человек принадлежит к отряду Высших обезьян
География: Самая густонаселенная страна мира - Монако; У КНДР самая большая площадь в мире
Математика: 16 - это 2⁴; площадь треугольника вычисляется по формуле a*b*c*h - где a,b,c - стороны, а h - высота
Литература: Роман-эпопея "Война и Мир", написанная Л.Н. Толстым,основывается на реальных событиях...; "Горе от ума" - трагедия, в которой герой осваивает основы светской жизни
Информатика: пример конъюнкции: 1 && 1 = 1; пример конъюнкции: 0 && 1 = 1
var c: longint;
function ch(n: longint ): longint;
var i: longint;
begin
i := 0;
while n > 0 do
begin
n := n div 10;
i := i + 1
end;
ch:= i
end;
begin
write ('Введите число: ');
readln (c);
if c<0 then c:=abs(c);
writeln ('в этом числе ',ch(c),' разрядов ');
end.