Предмет: Информатика,
автор: masaturka23
Яке значення 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
СРОЧНООО
Ответы
Автор ответа:
2
Ответ: 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.
Похожие вопросы
Предмет: Английский язык,
автор: daniutkin2016
Предмет: Русский язык,
автор: burmistrova80
Предмет: Английский язык,
автор: ararat6
Предмет: Биология,
автор: Анастасия20065акласс