Question

Следующее четное число после n​

Answer 1

Ответ:

program nextnum;

var

 n: Integer;

begin

 Write ('N = ');

 ReadLn (n);

 repeat

   Inc (n)

 until n mod 2 = 0;

 WriteLn ('Следующее четное = ', n);

 ReadLn;

end.