Question

решите задачу в программе паскаль. ecли число является двузначным и четным уменьшить его в 2 раза иначе увеличить на 10.пожалуйста, помогите!!!

Answer 1

var a: integer;
b: real;
begin
readln (a);
if (a > 9) and (a < 100) and (a mod 2 = 0) then
b:= a/10
else
b:= a + 10;
writeln (b);
end.