1) Определите значение переменной s после выполнения фрагмента программы: s:=0;
k:=0;
while s < 1024 do begin
s:=s+10;
k:=k+1;
end;

2) Укажите наименьшее и наибольшее из таких чисел , при вводе которых алгоритм печатает сначала 3, а потом 6: var x, L, M: integer; begin readln(x); L:=0; M:=0;
while x > 0 do begin
L:= L + 1;
M:= M + x mod 10;
x:= x div 10;
end;
writeln(L);
write(M);
end.