Question

С клавиатуры вводится число если оно делится на 4 увеличте его в 2 раза, если не делится уменьшите на 3.(Pasckal)

Answer 1

Program n1;
var a: integer;
begin
readln(a);
if a mod 4=0 then a:=a*2 else a:=a-3;
write(a);
end.

Answer 2

Ответ

Для решения данной задачи вам потребуется написать программу на языке Pascal. В программе нужно будет ввести число с клавиатуры и проверить, делится ли оно на 4. Если число делится на 4, то нужно увеличить его в 2 раза, а если не делится, то уменьшить на 3.

Вот пример программы на Pascal, которая решает данную задачу:

program DivideByFour;
var
  number: integer;
begin
  writeln('Введите число:');
  readln(number);
  
  if number mod 4 = 0 then
    number := number * 2
  else
    number := number - 3;
  
  writeln('Результат:');
  writeln(number);
end.

В этой программе мы сначала запрашиваем число у пользователя с помощью `readln`. Затем мы проверяем, делится ли число на 4 с помощью оператора `mod`. Если остаток от деления равен 0, то число делится на 4 и мы увеличиваем его в 2 раза с помощью оператора `*`. Если остаток от деления не равен 0, то число не делится на 4 и мы уменьшаем его на 3 с помощью оператора `-`. В конце мы выводим результат с помощью `writeln`.

Вы можете скопировать эту программу в среду разработки Pascal и запустить ее, чтобы увидеть результат.

Примечание: При написании программы на Pascal следует учесть, что Pascal чувствителен к регистру, поэтому следует обратить внимание на правильное написание ключевых слов и идентификаторов.

Надеюсь, это поможет! Если у вас возникнут еще вопросы, не стесняйтесь задавать.