Определите, какое чиcло будет напечатано в результате выполнения следующего алгоритма. паскаль var a,b,a,k,l: - id157339620200509 от рксский 09.05.2020 11:37

Question

Информатика: Определите, какое чиcло будет напечатано в результате выполнения следующего алгоритма. паскаль var a,b,a,k,l: integer; begin f: =(1-x)*(x-9)+4 end; begin a: =-16; b: =16 k: =a to b do if f(s) l then begin k: =s; l: =f(a) end; writen (k) end.

рксский · Accepted Answer

Ну, в общем, лови решение. { FreePascal 2.6.4} program test; uses     crt; var     a, b, c, d  : integer;     f : longint; procedure swap (var x : integer; var y : integer); var z : integer; begin     z := x;     x := y;     y := z; end; function nod (m, n : integer) : integer; begin     while m n do begin         if m n         then             m:=m-n         else             n:=n-m;     end;     nod := m; end; function max (a,b : integer) : integer; begin     if a b     then max := a     else...

MOGZ ответил