Question

Нарисовать блок-схему и определить, какие значения примут переменные "c" и "d" в результате выполнения данного фрагмента алгоритма
a: = 6
b: = 2
если a > b
то c = a - b
иначе с = a * b
d = 1
пока с < a
нц
d = d + 1
c = c + 1
кц
всё

Answer 1

Var
  a,b,c,d: integer;
 
begina:=-6;
b:=2;if a>b then
  c:=a-b
else
  c:=a*b;
 
d:=1;while c<a do begin
  d:=d+1;
  c:=c+1;
  end;
 
writeln('Значение d = ',d,'.');
writeln('Значение c = ',c,'.');
 
end.

Паскаль. d = 7. c = -6.