Дано целое число, если оно делиться на 3 без остатка то увеличить его на 1; в противном случае уменьшить его на 2. на паскале

uses crt;   {подключение модуля crt}var  x: integer;   {описание переменных}begin  {начало программы}  writeln('vvedi chislo: ');   {вывод текста на экран}

  read(x);   {чтение введеных данных}  if (x mod 3 = 0) then x: =x+1  {условие}    else x: =x-2;   {если условие не выполняется}  write('rezultat: ',x);   {вывод текста на экран}end.  {конец программы}

var

  x: longint;

 

begin

  write('введите число ');

  readln(x);

  if x mod 3 = 0 then //если х делится на 3,

    x : = x + 1                 //увеличиваем х на 1

  else                           //в противном случае

    x : = x - 2;                 // уменьшаем на 2

  writeln('результат: ',x); //вывод полученого числа

end.

1. 

var   n: integer;  

begin  

repeat  

writeln('введите номер месяца [1..12]');  

  readln(n);   until n in[1..12];

  case n of  

  1: writeln('january');  

  2: writeln('february');  

  3: writeln('march');  

  4: writeln('april');  

  5: writeln('may');  

  6: writeln('june');  

  7: writeln('july');  

  8: writeln('august');  

  9: writeln('september');

  10: writeln('october');  

  11: writeln('november');  

  12: writeln('december');

  end;

end.

ход решения: делим число на 2 и выписываем остатки76 = 38·2 + 038 = 19·2 + 019 = 9·2 + 19 = 4·2 + 14 = 2·2 + 02 = 1·2 + 0последний множитель перед 2 равный 1 записываем первым.затем записываем найденные остатки в обратном порядке.получаем: 1001100

ход решения: делим число на 2 и выписываем остатки82 = 41·2 + 041 = 20·2 + 120 = 10·2 + 010 = 5·2 + 05 = 2·2 + 12 = 1·2 + 0последний множитель перед 2 равный 1 записываем первым.затем записываем найденные остатки в обратном порядке.получаем: 1010010

ход решения: делим число на 2 и выписываем остатки83 = 41·2 + 141 = 20·2 + 120 = 10·2 + 010 = 5·2 + 05 = 2·2 + 12 = 1·2 + 0последний множитель перед 2 равный 1 записываем первым.затем записываем найденные остатки в обратном порядке.получаем: 1010011