Яке значення 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
hamestik
2
19.04.2021 22:07
0
Другие вопросы по теме Информатика
Mellisa11111111
13.01.2022 15:11
EfremovMk
13.01.2022 15:04
Варька111111111
13.01.2022 14:58
valeriya210322
13.01.2022 14:56
КристинаСоболева
28.06.2019 03:20
поаввав
13.05.2021 19:24
mam1975
13.05.2021 19:27
слава499
16.04.2020 13:49
mmozgovoj
14.01.2021 15:07
Популярные вопросы
- Обведи в тексте прилагательные. выпиши существительные вместе с прилагательными....
1 - Измени по падежам. зимний день,зимняя куртка, зимнее утро,далний пут,дальняя...
1 - Нечему,нечего,не с чем,незачем,было бы, какими частями речи являются подробно...
2 - Нужен план по расказу игорь робинзон...
2 - Какие числа можно записать в окошках чтобы равенство было верным ? 6....
1 - Каждому из шести детей дали подарки по 7 яблок и столько же персиков ,...
1 - What american symbols do you know ?...
1 - Всбербанк положилиположили 2500 рублей под 3% годовых.какая сумма будет...
2 - Какая разница между кроссом и марафоном...
1 - Подумайте, о чём свидетельствует первая десятка нефтедобывающих стран....
1
ответ: 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.