Поделитесь своими знаниями, ответьте на вопрос:
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.
1) выведет s = 1030
2) наименьшее 150 , наибольшее 600