Начиная от нуля веди к следующем по счету цифрам. Все выйдет
Var x:real; a:integer;
begin
write('x = ');
readln(x);
a:=round(x);
writeln(a);
end.
Пример:
x = 8.56
9
По обычной системе 1 байт равен 1024 Кбайт следовательно нужно 1024*24=24576 и разделить на 200 это равно примерно 122,88 сек. тесть примерно 2 с лишнем минутам
Совокупность сведений об объекте процесс или явление называется описанием
Var
A,N:integer;
Begin
WriteLn('Введите натуральное число');
ReadLn(A);
N:=0;
While A>0 do
Begin
A:= A div 10;
N:=N+1;
End;
WriteLn(N);
End.