Ниже приведена программа, записанная на двух языках программирования Паскаль+Алгоритмический язык Было - id1329937020200501 от Max325t 01.05.2020 13:49

Question

Информатика: Ниже приведена программа, записанная на двух языках программирования Паскаль+Алгоритмический язык Было проведено 9 запусков программы. при которых в качестве значений переменных s и t вводились следующие пары чисел (6, 8); (3,5); (-7,2); (7,7); (9,8); (-1,3); (-4,5); (6,9); (2,-1)

Max325t · 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 ответил