Question

Разобрать программу по строкам. С клавиатуры вводится число 519. В ответе написать результат выполнения программы (что будет выведено на экран)     program a10; var k, r, d: integer; begin read(k); if k mod 3=0 then begin d:=d+7; k:=k-d*2; writeln(k:5, d:5); end else writeln(d:5); d:=d+4; writeln(k:5, r:5); readln end.

Answer 1

Ответ:

 505    7                                                                                                                            

 505    0

Объяснение:

519 mod 3 = 0 значит:

d=7

k=519-7*2=505

вывод:  505    7 (на вывод каждого значения отводится 5 символов)

else не выполняется

r не изменялся и в принципе выведет 0

вывод:  505    0 (на вывод каждого значения отводится 5 символов)

Answer 2

Программа получает на вход целое число, считывая его с клавиатуры. В данном случае, число 519.

Затем программа проверяет, является ли это число кратным трём (т.е. делится ли на 3 без остатка) с помощью операции деления по модулю - k mod 3. Если да, то выполняется блок команд, находящийся после ключевого слова then.

Внутри этого блока переменной d присваивается значение, увеличенное на 7: d:=d+7;. Затем из переменной k вычитается удвоенное значение переменной d: k:=k-d*2;. После этого на экран выводятся значения переменных k и d, разделенные пробелами и выровненные по ширине в 5 символов: writeln(k:5, d:5);.

Если же число k не является кратным трём, то на экран выводится только значение переменной d, выровненное по ширине в 5 символов: writeln(d:5);.

В обоих случаях переменной d присваивается значение, увеличенное на 4: d:=d+4;.

После этого на экран выводятся значения переменных k и r, разделенные пробелами и выровненные по ширине в 5 символов: writeln(k:5, r:5);.

Затем программа ожидает нажатия клавиши Enter с помощью процедуры readln.

Итоговый вывод на экран будет следующим:

Copy code
513   11
  4
519    0

Первая строка - это результат выполнения блока команд внутри условия if k mod 3=0. Значение переменной k уменьшилось на 2 * d, то есть на 2 * 7 = 14, и стало равным 513. Значение переменной d увеличилось на 7 и стало равным 11.

Вторая строка - это результат выполнения блока команд внутри условия if k mod 3<>0 (так как k mod 3 = 519 mod 3 = 0 не выполняется). Выводится только значение переменной d, которое равно 4.

Третья строка - это результат выполнения команд после обоих условий. Значения переменных k и r остались неизменными и равны 519 и 0 соответственно.