Здесь вы можете потренироваться в заполнении таблиц трассировки. Для этого вводите данные в желтые ячейки. Добейтесь, чтобы все ячейки таблиц были зеленого цвета.

Задание 1

Проанализируйте программу на Pascal и заполните таблицу трассировки

program prog1;
var i,s: Integer;
begin
    i:=15;
    s:=0;
    while i<=32767 do
      begin
        s:=s+i;
        i:=i*16;
      end;
end.

Задание 2

Проанализируйте программу на Pascal и заполните таблицу трассировки

program prog2;
var n,a: Integer;
begin
  n:=15;
  a:=0;
    while n>0 do
      begin
        a:=a*10+n mod 10;
        n:=n div 10;  	
      end;
end.

Задание 3

Проанализируйте программу на Pascal и заполните таблицу трассировки

program prog3;
var n,k,m,An: Integer;
begin
  n:=15;
  i=0;k=1;m=1;
  for i:=1 to n do
  begin
    k:=k*2;
    m:=m*i;    
  end;
  An:=m*n/k;
  WriteLn(An);
end.