СРОЧНО
какое значение 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, но нужно знать как выполнялись подсчёты)!!!​
Please enter comments
Please enter your name.
Please enter the correct email address.
You must agree before submitting.

Answers & Comments


Copyright © 2024 SCHOLAR.TIPS - All rights reserved.