1) при помощи смайликов
2)... Касперского
3).... мыши
Прошу прощения, что грязно написано, но работать должно правильно)
Вопрос 1 - 0
Вопрос 2 - 1
Вопрос 3 - 0
Вопрос 4 - 5
Вопрос 5 - 0
Вопрос 6 - 4
Вопрос 7 - 3
Вопрос 8 - 12
Вопрос 9 - 0 mod 5 , 7 mod 7 , 3 div 5.
Вопрос 10 - 1 mod 3 , 5 div 3 , 9 mod 4.
Ну ты хоть картинку скинь с этой страницой
Var
a,i,n:integer;
begin
readln(a);
while a>0 do
begin
inc(i);
a:=a div 10;
end;
writeln(i);
<span>end.</span>