Begin s := 9; for k := 4 to 7 do s := s + 9; writeln(s); End.

Question

Информатика: Begin s := 9; for k := 4 to 7 do s := s + 9; writeln(s); End.

Nikodim39 · 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...

Begin s := 9; for k := 4 to 7 do s := s + 9; writeln(s); End.

MOGZ ответил