Яке значення 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
​

ответ: 12

Объяснение:

В коде были недочёты, поэтому пришлось дополнить его, дабы получить ответ.

var N, d, S: Integer;

begin

N:= 345; S:= 0;

Repeat

d:= N mod 10;

S:= S+d;

N:= N div 10;

Until N=0;

Writeln(S);

end.