Question

1) Чему будет равно значение переменной с в результате выполнения фрагмента программы а:=125; b:=25; с:=12; if a div 25=0 then if a mod 12=0 then c:=b div (a mod c) else c:=a div (b mod c) 2) Укажите результат выполнения программы var a,b: integer; procedure proc(var a: integar; b: integar); begin b:=4; a:=6; b:=a+b; end; begin a:=2; b:=3; proc(a,b); writeIn(a,' ',b);end. Пожалуйста! Хотя бы одну!!!

Answer 1

1) c = 12
2) a = 6, b = 3 

Answer 2

Давайте рассмотрим каждый из ваших фрагментов программы по отдельности:

1. Фрагмент программы с условием:

cssCopy code
a := 125;
b := 25;
c := 12;

if a div 25 = 0 then
  if a mod 12 = 0 then
    c := b div (a mod c)
  else
    c := a div (b mod c);

Для того чтобы определить значение переменной c, давайте выполним шаг за шагом:

1. a := 125;
2. b := 25;
3. c := 12;
4. if a div 25 = 0 - Это условие не выполняется, так как 125 делится на 25 без остатка.
5. Таким образом, мы переходим к блоку else.
6. c := a div (b mod c); - Теперь вычислим это выражение:
   • b mod c равно 25 mod 12, что равно 1.
   • a div 1 равно 125.
7. Следовательно, значение переменной c будет равно 125.

2. Фрагмент программы с процедурой:

cssCopy code
var
  a, b: integer;

procedure proc(var a: integer; b: integer);
begin
  b := 4;
  a := 6;
  b := a + b;
end;

begin
  a := 2;
  b := 3;
  proc(a, b);
  writeln(a,' ',b);
end.

В этой программе у вас есть процедура proc, которая принимает два параметра по значению. При вызове этой процедуры значения a и b внутри неё изменяются, но эти изменения не влияют на значения a и b в главном блоке программы.

Таким образом, после выполнения этой программы, a и b в главном блоке останутся равными 2 и 3 соответственно, и результатом вывода на экран будет "2 3".