Дана таблица в режиме отображения формул .записать эту же таблицу в режиме отображения значений: а в 1 2 =а1+2 2 =мин(а1: в1) =если(а1=а2; 8; сумм(а1: а2) 3 =и(а28) =или(а2=1; в1=1; в1=4) 4 =не(а1=в2) =срзнач(а1: в2)

Var n, m, k, i: integer; f: boolean; function s(a: integer): boolean; var i: integer; begin s: =false; for i: =2 to a div 2 do   if a mod i=0 then s: =true; end; begin write('n = '); readln(n); write('m = '); readln(m); if m< n then k: =m else k: =n; i: =1; f: =s(i); while (i< k) and not f do   begin   i: =i+1;   if (m mod i=0)and(n mod i=0) then f: =s(i);   end; if f then writeln('нод = ', i) else writeln('нет требуемого делителя'); end. пример: n = 42m = 105нод = 21

Const x0=1; xk=2; h1=0.1; y0=2; yk=3; h2=0.2; var x,y,z: real; i,j: integer; begin x: =1-h1; for i: =1 to round((xk-x0)/h1)+1 do   begin   x: =x+h1;   y: =2-h2;   for j: =1 to round((yk-y0)/h2)+1 do   begin   y: =y+h2;   z: =x*x+y+y;   writeln(x: 3: 1,y: 5: 1,z: 7: 3);   end;   end; end. результат: 1.0   2.0   5.000 1.0   2.2   5.400 1.0   2.4   5.800 1.0   2.6   6.200 1.0   2.8   6.600 1.0   3.0   7.000 1.1   2.0   5.210 2.0   2.6   9.200 2.0   2.8   9.600 2.0   3.0 10.000