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

Ответ:

Можно ввести 18 значений от 180 до 197.

Из программы видно, что 14+k*5 = 69  =>  k = 11

29 + k*d >= 2000,  отсюда получаем минимальное значение d

d = 1971/11 = 179,18  ,  но так как d - целое, то  d min = 180.

Максимальное значение d из условия:  d max = (1999-29)/10 = 197

Объяснение: