Проверить программы https://www.onlinegdb.com/online_pascal_compiler

Перенести программу и запустить её - RUN. Ввести стороны прямоугольника и нажать ENTER.
Сделать скриншоты​

Оператор mod возвращает остаток от деления. Четное число – такое, остаток от деления которого на 2 равен нулю.

Функция int возвращает целую часть дробного числа. С её можно реализовать mod ( – примерно то же самое, что и ) или сравнить результат умножения на 2 целой части результата деления исходного числа на 2 с исходным числом.

Код:

begin

   var a := ReadInteger();

   writeln(a mod 2 = 0);

   writeln(a - 2 * int(a / 2) = 0);

   writeln(a = 2 * int(a / 2));

end.

Пример ввода:

5

Пример вывода:

False

False

False

Пример ввода:

42

Пример вывода:

True

True

True

if8                                                  

program raf105;

uses robot;

var l,d,r,u: boolean;

begin

task('if8');

l:= wallfromleft;

d:= wallfromdown;

r:= wallfromright;

u:= wallfromup;

if l

 then begin right; paint; right; paint;

   if freefromright

     then begin right; paint; end

   end;

if d

 then begin up; paint; up; paint;

   if freefromup

     then begin up; paint; end

   end;

if r

 then begin left; paint; left; paint;

   if freefromleft

     then begin left; paint; end

   end;

if u

 then begin down; paint; down; paint;

   if freefromdown

     then begin down; paint; end

   end;

end.

if9                                                  

program raf105;

uses robot;

var l,r: boolean;

begin

task('if9');

right; r:= wallfromdown;

left;

left; l:= wallfromup;

right;

if r and l

 then begin up; paint; down; down; paint; up; end

 else paint;

end.

if10                                                

program raf105;

uses robot;

var l,r: boolean;

begin

task('if10');

right; r:= cellispainted;

left;

left; l:= cellispainted;

right;

if r or l

 then begin up; paint; end

 else paint;

end.