Назначение программы на Паскале, фрагмент которой приведен ниже:

…readln (x1, y1); readln (x2, y2); readln (x3, y3);a:= sqrt (sqr(x1-x2)+sqr(y1-y2));b:= sqrt (sqr(x2-x3)+sqr(y2-y3));c:= sqrt (sqr(x3-x1)+sqr(y3-y1));p:=(a+b+c) / 2;writeln (sqrt (p*(p-a)*(p-b)*(p-c)));…

В результате выполнения программы на Паскале, фрагмент которой приведен ниже, на экран выведутся:

…readln (n);for i:=1 to n do a[i]:=i;for i:=2 to n div 2 do  if flag[i]=0 then  for j:=i+1 to n do   if (a[j] mod a[i]=0) then flag[j]:=1;for i:=2 to n do if flag[i]=0 then writeln (a[i])…

Назначение программы на Паскале…

var a: string;b, i, st, n, s, x, k:integer;beginreadln (a); readln(b); n:=length(a); s:=0; st:=1;for i:=1 to n dobeginval (copy(a,n-i+1,1),x,k); s:=s+x*st; st:=st*b;end;writeln (s);end.

В результате выполнения программы на Паскале, фрагмент которой приведен ниже, массив Flag будет содержать:

…readln (n);for i:=1 to n do a[i]:=i;for i:=2 to n div 2 do  if flag[i]=0 then  for j:=i+1 to n do   if (a[j] mod a[i]=0) then flag[j]:=1;…

В результате выполнения программы на Паскале, фрагмент которой приведен ниже, в массив вводятся числа: 1, 2, 1, 2, 1, 2. Массив У будет содержать значения:

. . . for i:=1 to n do  begin readln (x[i]); y[i]:=i; end;for j:=n downto 2 do  for i:=1 to j-1 do  if x[i]>x[i+1] then     begin	m:=x[i]; x[i]:= x[i+1]; x[i+1]:=m;	g:=y[i]; y[i]:= y[i+1]; y[i+1]:=g;	end; . . . 

В результате выполнения программы на Паскале, фрагмент которой приведен ниже, в массив вводятся числа: 5, 4, 3, 2, 1. Массив У будет содержать значения:

. . . for i:=1 to n do  begin readln (x[i]); y[i]:=i; end;for j:=n downto 2 do  for i:=1 to j-1 do  if x[i]>x[i+1] then     begin	m:=x[i]; x[i]:= x[i+1]; x[i+1]:=m;	g:=y[i]; y[i]:= y[i+1]; y[i+1]:=g;	end; . . . 

Что делает приведенная ниже программа на Паскале:

var a: string;b, i, j, st, n, s, x, k: integer;beginwriteln ('введите число'); readln (a); n:=length(a); s:=0; for i:=1 to n do  begin  val (copy(a,n-i+1,1),x,k); st:=1;  for j:=1 to n do st:=st*x;  s:=s+st;  end; val (a, x, k); if s=x then writeln ('+') else writeln ('-');end.

Для организации перевода числа а из десятичной в -ричную систему счисления, программа на Паскале (начальный фрагмент которой приведен ниже)

…readln (a, n); i:=0;while (a<>0) dobegini:=i+1;x[i]:=a mod n;a:=a div n;end; …

должна быть продолжена так:

Предскажите, какие значения будет содержать массив х, в результате выполнения программы на Паскале, фрагмент которой приведен ниже, если первоначально в массиве соделжались значения . Ответ дайте в поле ввода без пробелов:

. . . for i:=1 to 5 do readln (x[i]);for j:=5 downto 2 do  for i:=1 to j-1 do  if x[i]>x[i+1] then beginy:=x[i]; x[i]:= x[i+1]; x[i+1]:=y;end;…

Приведенная программа на Паскале позволяет …

var a, b, s, x: integer;beginreadln (a); readln (b); s:=0;while a<>0 dobeginx:=a mod b; s:=s*10 +x; a:=a div b;end;writeln (s);end.

Приведенная программа на Паскале реализует алгоритм …

const 	m=…;var 	a, rez: array [1..m] of byte; i, n, x, k: integer; stroka: string;begin readln (stroka); readln (x); n:= length (stroka); for i:=1 to n do val (copy(stroka, i, 1), a[i], k); for i:=1 to n do rez[i]:= a[i] * x; for i:=n downto 2 do  begin  rez[i-1]:= rez[i-1]+rez[i] div 10;  rez[i]:= rez[i] mod 10;  end  for i:=1 to n do write (rez[i]);end.