С клавиатуры вводится число. Если оно четное, то его нужно удвоить, а если нечетное - утроить. В паскале.
Var n: integer;
begin
read(n);
if (n mod 2 ) = 0 then n:=n*2
else n:=n*3;
end.
Оцени ответ
Вход
Регистрация
Задать вопрос
Var n: integer;
begin
read(n);
if (n mod 2 ) = 0 then n:=n*2
else n:=n*3;
end.