Или 4,или 1
но больше всего 4
Var
a: integer;
begin
readln(a);
while (a > 3) do
a := a - 4;
writeln(a);
end.
-------------
Если нужно отнимать, даже если число перестанет быть отрицательным после очередной итерации:
var
a: integer;
begin
readln(a);
while (a > 0) do
a := a - 4;
writeln(a);
end.
321 в десятичной = 101000001 в двоичной
Что-то вроде этого:
Select * from readers (условное название таблицы читателей) where reader_id not in (select reader_id from books (условное название таблицы книг) where year(date_taken)=year(date())-1) (см. руководство по синтаксису и функциям применительно к конкретной версии SQL).
Graph-Примитивы, перья и кисти, шрифты, графич.окно, события мыши и клаиатуры
objects-создание объектов, управление свойствами объектов