Фрагмент программы

 х:=12; for i:=1 to 2 do begin   y:=x div 10;   x:=x mod 10; end p:=x*y; writeln(p);

выводит на экран значение:

Фрагмент программы

m:=0;p:=1;for i:=1 to 4 do  if (p<i)    then p:=i    else m:=i;writeln(m+p);

выводит на экран значение равное:

Фрагмент программы

 m:=0; p:=1; for i:=1 to 3 do if (i=p)  then p:=i  else m:=i; writeln(m+p); 

выводит на экран значение равное:

Фрагмент программы

х:=1234;for i:=1 to 2 do  begin     y:=x div 2 div 3;     x:=x mod 5;     p:=x+y;  endwriteln(p);

выводит на экран значение:

Фрагмент программы

y:='info';n:=length(у);i:=1;while (i<=n/2) do begin   a:=y[i];   y[i]:=y[n–i+1];   y[n–i+1]:=a;   i:=i+1 end;writeln(y);

выдаст на экран текст вида:

Фрагмент программы

y:='informatics';n:=length(у);i:=1;while (i<=n) do  begin    a:=y[i];    y[i]:=y[n–i+1];   y[n–i+1]:=a;   i:=i+1  end;writeln(y);

выдаст на экран текст вида:

Для a[i] = i (i = 1, 2, 3, 4) фрагмент программы

j:=4;i:=3;while (i>1) do  begin   if (а[i]>а[j])     then j:=i;   i:=i–1  end;write(i,j);

выведет на экран пару чисел в следующей последовательности:

Для a[i]=i (i=1, 2, 3, 4) фрагмент программы

j:=1;i:=1;while (i<3) do begin if (а[i]<а[j]) then j:=i; i:=i+1 end;write(i,j);

выведет на экран пару чисел в следующей последовательности:

Фрагмент программы

a:='informatics';b:='soft';k:=min(length(а),length(b));for i:=1 to k do  if (а[i]=b[i])   then k:=k+1;write(k);

выведет на экран значение переменной k равное:

Фрагмент программы

a:='info';b:='soft';k:=max(length(а),length(b));for i:=1 to k do if (а[i]=b[i]) then k:=k–1;write(k);

выведет на экран значение переменной k равное:

Фрагмент программы

i:=1;k:=1;while (i<=n) do  begin    k:=k+k;    i:=i+1  end

вычисляет: