Что будет напечатано после выполнения программы?
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.