var
i: <em>integer</em>;
begin
readln(i);
writeln(length(inttostr(i)));
<span>end.</span>
Озу - оперативное запоминающее устройство
Ответ:
1 - заголовок
2 - ось значений
3 - легенда
4 - заголовок оси категорий
Объяснение:
Var n: integer;
<span>begin
</span><span> write('число: '); readln(n);
</span><span> repeat
</span><span> write(n mod 10);
</span><span> n:=n div 10;
</span><span> until n=0;
</span><span>end.
</span><span>
Ввод - вывод:
</span>число: 589
<span>985
</span>
Автоматически папка - <em>спам</em>