Информатика Архивный вопрос

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

Нет комментариев

Ответы

Гость

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.

1 комментария:
спасибо большое