Что будет напечатано после выполнения программы? var k, S: integer; begin k := 10; S := 0; while k < 120 do begin S := S + k; k := k + 5 end; write (s) end. Ниже дана программа. Получив на вход натуральное число x, программа печатает число R. Укажите число R, при вводе числа 70. var x, d, R: longint; begin readln(x); R := 0; while x > 0 do begin d := x mod 10; R := 10*R + d; x := x div 10 end; writeln(R) end.

Давайте рассмотрим программу по шагам, чтобы понять, что она делает и какое число будет напечатано при вводе числа 70.

1. Объявляем переменные: x, d и R. В данном случае, x и R имеют тип данных longint, тоесть длинное целое число.

2. Считываем значение переменной x с помощью функции readln. Для ввода числа 70, мы вводим значение 70.

3. Инициализируем переменную R значением 0.

4. Входим в цикл с условием while. Цикл продолжается, пока значение переменной x больше 0.

5. Внутри цикла, на каждой итерации, мы находим остаток от деления числа x на 10 и присваиваем его переменной d. В данном случае, при x = 70, остаток от деления будет равен 0.

6. Затем мы умножаем значение R на 10 и прибавляем значение d. На первой итерации: R = 0 * 10 + 0 = 0.

7. После этого, делим переменную x на 10 с помощью оператора деления div, чтобы удалить последнюю цифру числа. В данном случае, при x = 70, мы получим значение 7.

8. Цикл повторяется и выполняется вторая итерация с новым значением x = 7.

9. Мы снова находим остаток от деления x на 10, который равен 7.

10. Затем умножаем значение R на 10 и прибавляем значение d. На второй итерации: R = 0 * 10 + 7 = 7.

11. После этого, мы снова делим переменную x на 10 и получаем значение 0.

12. Условие цикла while становится ложным, так как x равно 0.

13. Мы выходим из цикла и передаем значение R в функцию writeln для печати на экран. В данном случае, число R равно 7.

Таким образом, после выполнения программы и ввода числа 70, на экран будет напечатано число 7.