Гсч с генерировать число в диапазоне от 20 до 20. Определить чётное это число или нет. текст программой на пишите

var a,b:integer;

x:real;

begin

Randomize;

a:= random(-20,20);

if(a mod 2 = 0) then

writeln(a, ' - Чётное')

else

 writeln(a, ' - Нечётное');

end.

Объяснение:

функция рандомайз необходима для получения новых значений, без неё как такового рандома не получится

остальное всё просто, на полученое число приходится остаток от деления, если его нет - число чётное

клинопись

1)

program m; uses crt; var i,a,b,c,min: integer; beginclrscr; readln(a,b,c);

if a< min then min: =a; if b< min then min: =b; if c< min then min: =c; writeln('              ',min); readkey; end.

2)

program m; uses crt; var i,a,b,c,min,d: integer; beginclrscr; readln(a); min: =a; for i: =1 to 2 do                       

                                                                beginreadln(a); if a< min then min: =a;                                                             end; writeln(min);

readkey;

end.

3)

program m; uses crt; var i,a,b,c,min,d: integer; beginclrscr; readln(a,b,c); if a< b then b: =a; if c< a then b: =c; writeln(b); readkey; end.