Question

ПОМОГИТЕ ПОЖЛСТ 60 Б ДАМ Что будет выведено на экран в результате выполнения программы: program z8; var a, s, x: integer; begin x:=21; s:=0; a:=x mod 10; s:=s*10+a; a:=x div 10; s:=s*10+a; writeln(s); end. *

Answer 1

Ответ:12

Объяснение:

сначала а= 1

s=0*10+1=1

а=2

s=1*10+2=12

mod 10 остаток деления на 10

21 mod 10= остаток 1

div 10 целая часть от деления на 10

21 div 10  целая часть равна 2

Answer 2

Давайте разберем эту программу по шагам:

1. var a, s, x: integer; - Объявление трех целых переменных: a, s и x.

2. x := 21; - Присваивание переменной x значения 21.

3. s := 0; - Присваивание переменной s значения 0.

4. a := x mod 10; - Переменной a будет присвоено значение остатка от деления x на 10, то есть 21 mod 10, что равно 1.

5. s := s * 10 + a; - Значение переменной s умножается на 10, затем к результату добавляется значение переменной a. Исходное значение s было 0, поэтому новое значение s будет 0 * 10 + 1, что равно 1.

6. a := x div 10; - Переменной a будет присвоено значение целочисленного деления x на 10, то есть 21 div 10, что равно 2.

7. s := s * 10 + a; - Опять выполняется умножение s на 10, затем к результату добавляется значение переменной a. Значение s было 1, поэтому новое значение s будет 1 * 10 + 2, что равно 12.

8. writeln(s); - Эта инструкция выводит значение переменной s на экран.

Итак, результат выполнения программы будет следующим:

Copy code
12

На экран будет выведено число 12.