Question

початок задумайте, число ,додайте 6 ,зменшать на 4,число ділиться на 2? додати 1 ,поділити на 2 ,поділити на 2 ,кінець
Це задача по Паскаль ​

Answer 1

Ответ:

var x: integer;

begin

writeln('напишите число');

readln(x);

x:=x+2;

if x mod 2 = 1 then x:=x+1 ;

x:=x div 2;

writeln(x);

end.