Question

СРОЧНО какое значение S будет введено в текстовое поле?var N, d, S: Integer;beginN: = 345; S:= 0Repeatd:= N mood 10;S:= S+dN:= N div 10;Until N=0Edit2.Text:= IntToStr(S);end!!!Объяснение как нашли значение S (значение 12, но нужно знать как выполнялись подсчёты)!!!​

Answer 1

Ответ:

12

d = 345 mod 10 = 5

s = 0 + 5 = 5

n = 345 div 10 = 34

d = 34 mod 10 = 4

s = 5 + 4 = 9

n = 34 div 10 = 3

d = 3 mod 10 = 3

s = 9 + 3 = 12

n = 3 div 10 = 0

x div y - целое от деления x на y

x mod y - остаток от деления x на y

Answer 2

Данный код является фрагментом программы на языке Pascal. Он выполняет следующие действия:

1. Инициализирует переменные: n, d и s, причем n присваивается значение 345, а s - значение 0. 2. Начинается цикл repeat...until, который будет выполняться, пока переменная n не будет равна 0. 3. Внутри цикла происходит следующее: 3.1. Переменной d присваивается значение n модуль 10. То есть, остаток от деления n на 10. 3.2. Переменной s присваивается значение s плюс d, то есть, s увеличивается на значение d. 3.3. Переменной n присваивается значение n деленное на 10, то есть, n уменьшается на один порядок. 4. По окончании цикла значение переменной s будет равно сумме всех цифр числа n. 5. В строке "edit2.text:= inttostr(s);" значение s преобразуется в строку при помощи функции inttostr и присваивается свойству text текстового поля с именем edit2.

Итак, при выполнении указанного кода, значение s будет равно сумме всех цифр числа n, то есть 12. В конце выполнения программы это значение будет выведено в текстовое поле edit2.