Question

Какое значение S будет введено в текстовое поле? var N, d, S: Integer;beginN: = 345; S:= 0Repeatd:= N mood 10;S:= S+dN:= N div 10;Until N=0Edit2.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

Объяснение:

Answer 2

Код, который вы предоставили, выглядит как фрагмент программы на языке Pascal, который выполняет подсчет суммы цифр числа. Давайте разберем, как он работает и почему S будет равно 12.

1. N и d - это переменные типа Integer, а S инициализируется значением 0.

2. N устанавливается равным 345: N := 345;.

3. Затем начинается цикл Repeat...Until, который будет выполняться до тех пор, пока N не станет равным 0.

4. На каждой итерации цикла:

   • d устанавливается равным остатку от деления N на 10. В данном случае, d будет равно последней цифре числа N, то есть 5 (первая итерация).
   • S увеличивается на d. Таким образом, на первой итерации S становится равным 5.
   • N обновляется путем целочисленного деления на 10, что приводит к удалению последней цифры числа. Таким образом, после первой итерации N становится равным 34.

5. Цикл повторяется на второй итерации, где:

   • d равно 4 (вторая цифра числа 34).
   • S увеличивается на 4, что делает его равным 9.
   • N становится равным 3.

6. На третьей итерации:

   • d равно 3 (последняя цифра числа 3).
   • S увеличивается на 3, и S становится равным 12.
   • N становится равным 0.

7. После этой итерации условие Until N = 0 больше не выполняется, и цикл завершается.

8. Затем значение переменной S (которое теперь равно 12) преобразуется в строку с помощью IntToStr(S) и устанавливается в текстовое поле Edit2.Text.

Итак, после выполнения этой программы значение S будет равно 12, и оно будет установлено в текстовое поле Edit2.Text.