4. напишите программу, определяющую, верно ли, что при деление целого отрицательного числа а на целое положительное число b получается заданный остаток r или s. 5. напшите программу, при выполнение которой выводится 1, если заданное число х принадлежит отрезку (a; b), или 0 в противном случае

1. var a,b,r,s: integer; begin write('введите числа a и b: '); readln(a,b); write('введите остатки r и s: '); readln(r,s); if (a mod b=r) or (a mod b=s) then writeln('да, верно')   else writeln('нет, неверно') end.2.var  a,b,x: real; beginwrite('введите числа a и b: '); readln(a,b); write('введите x: '); readln(x); if (a< =x) and (x< =b) then writeln(1)  else writeln(0)end.

операционная    система (оболочка)    windows    -    это    разработанная  фирмой    microsoft  надстройка    над    операционной    системой    dos  ,  обеспечивающая    большое    количество    возможностей    и    удобств    для  пользователей    и    программистов.широчайшее    распространение    windows  сделало    ее    фактическим    стандартом    для    ibm  pc    - совместимых  компьютеров. подавляющее    большинство пользователей    таких  компьютеров    работают    в      windows  ,    поэтому    практически    все    новые  программы      стали    разрабатываться    именно    для    эксплуатации    в    среде  windows.

//pascalabc.net версия 3.2, сборка 1389 //если программа не запускается, то обновите версию uses graphabc; const       kegl = 40; var       space, line: integer; procedure m(cx, cy: integer); begin       moveto(cx, cy);       lineto(cx, cy - kegl );       lineto(cx + kegl div 2, cy);       lineto(cx + kegl, cy - kegl);       lineto(cx + kegl, cy); end; procedure i(cx, cy: integer); begin       moveto(cx, cy - kegl);       lineto(cx, cy );       lineto(cx + kegl, cy - kegl);       lineto(cx + kegl, cy); end; procedure r(cx, cy: integer); begin       moveto(cx, cy);       lineto(cx, cy - kegl);       lineto(cx + kegl, cy - kegl);       lineto(cx + kegl, cy - kegl div 2);       lineto(cx, cy - kegl div 2); end; begin       space : = kegl div 2;             setwindowsize(4 * space + 3 * kegl, 4 * space + 3 * kegl );             line : = space + kegl;       m(space, line );       i(2 * space + kegl, line );       r(3 * space + 2 * kegl, line );             line : = 2 * space + 2 * kegl;       r(space, line );       i(2 * space + kegl, line );       m(3 * space + 2 * kegl, line );             line : = 3 * space + 3 * kegl;       m(space, line );       i(2 * space + kegl, line );       m(3 * space + 2 * kegl, line ); end.