Цифры

Вычислить количество цифр целого неотрицательного числа n.

Технические условия

Входные даные

Одно неотрицательное целое число n (0 ≤ n ≤ 2*10⁹).

Выходные даные

Количество цифр в числе n.

Информация о задаче
Лимит времени: 1 секунда
Лимит памяти: 64 MB
Баллы за пройденный тест: 6.25
Сложность: 20% 2934/3663
Классификация: Теория чисел
Мои результаты: 0/3

Пример входных данных 13243
Пример выходных данных 5

Program digit;
Var
s:string[10];
Begin
Assign(input,'input.txt');
Assign(output,'output.txt');
Reset(input);
Rewrite(output);
Readln(s);
Writeln(length(s));
Close(input);
Close(output)
End.

Решение #1670413
Дата отправки: 07 Ноября 2014 23:31:09
Задача: 2. Цифры
Автор решения: bandalak
Компилятор: Free Pascal
Среднее время выполнения: 0.015 секунды
Максимальное время выполнения: 0.015 секунды из 1 секунда, 1.5%
Лимит памяти: 1940 KB из 65536 KB, 3%
Использовать файлы для ввода/вывода

Засчитано 75%

Результат по тестам: 1. Засчитано
2. Засчитано
3. Засчитано
4. Засчитано
5. Засчитано
6. Засчитано
7. Неверный ответ
8. Неверный ответ

Program digit;
Var
s:string[10];
n:longint;
Begin
Readln(n);
Str(n,s);
Writeln(length(s));
End.

Решение #1670536
Дата отправки: 08 Ноября 2014 08:20:46
Задача: 2. Цифры
Автор решения: bandalak
Компилятор: Delphi 7.0
Среднее время выполнения: 0.015 секунды
Максимальное время выполнения: 0.015 секунды из 1 секунда, 1.5%
Лимит памяти: 1708 KB из 65536 KB, 2.6%

Засчитано

Результат по тестам: 1. Засчитано
2. Засчитано
3. Засчитано
4. Засчитано
5. Засчитано
6. Засчитано
7. Засчитано
8. Засчитано

Program symmetry;
Var
s:string[10];
n:longint;
p,i,k:byte;
Begin
Readln(n);
p:=0;
Str(n,s);
k:=length(s);
if k =1 then
writeln(1)
else
begin
for i:=1 to k do
if s[i]=s[k+1-i] then
p:=p+1;
writeln(round(p/2));
end;
End.