Question

СРОЧНО
какое значение S будет введено в текстовое поле?
var N, d, S: Integer;
begin
N: = 345; S:= 0
Repeat
d:= N mood 10;
S:= S+d
N:= N div 10;
Until N=0
Edit2.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