Question

Определите значение переменной спосле выполнения следующего фрагмента программы:
a := 30;
b := 14;
a := a – 2 * b;
if a > b then
c := b + 2 * a
else
c := b - 2 * a;
Определите значение переменной спосле выполнения следующего фрагмента программы:
a := 30;
b := 6;
a := a * 3 / b;
if a < b then
c := 3*a - 5 *(b+3)
else
c := 3*a + 5 * (b+3);
Определите значение переменной спосле выполнения следующего фрагмента программы:
a:= 30;
b:= 6;
a:= a * 3 / b;
if a > b then
с:= 2*a - 5*(b+2)
else
с:= 2*a + 5*(b+2);
Определите значение переменной спосле выполнения следующего фрагмента программы:
a := 56;
b := 2;
k := 5;
a := a/8 – b;
if a > b then
c := 10*a – k*b
else
c := 10*a + k*b;
Определите значение переменной спосле выполнения следующего фрагмента программы:
a:= 30;
b:= 6;
a:= a * 3 / b;
if a < b then
с:= 2*a - 10* b
else
с:= 2*a + 10* b;

Answer 1

1) program first;
var a,b,c:integer;
begina := 30;b := 14;
a := a - 2 * b;
if a > b then
c := b + 2 * a
elsec := b - 2 * a;
writeln (c);
end. 
в итоге с:=10
2) program first1;
var a,b,c:real;
begina := 30;
b := 6;
a := a * 3 / b;
if a < b then
c := 3*a - 5 *(b+3)
elsec := 3*a + 5 * (b+3);
writeln (c);
end. 
в итоге с:=90
по аналогии выполняются другие примеры если условие выполняется, то решаем первое выражение, если нет то второе условие это например if a < b

Answer 2

с=-10

Answer 3

program first1;
var a,b,k,c:real;
begin
a := 56;
b := 2;
k := 5;
a := a/8-b;
if a > b then
c := 10*a-k*b
else
c := 10*a + k*b;
writeln (c);
end.

Answer 4

с=40

Answer 5

program first1;
var a,b,c:real;
begin
a:= 30;
b:= 6;
a:= a * 3 / b;
if a < b then
c:= 2*a - 10* b
else
c:= 2*a + 10* b;
writeln (c);
end.

Answer 6

с=90