Да все теже что и с вещественным только делить нельзя, сложение вычитание умножение, остаток от деления, возведения в степень... и тд
<span><span>2 : if ((year mod 4) = 0) and ((year mod 400) <> 0) then</span><span> DneyVMecyace := 29</span><span>
else</span><span>
DneyVMecyace := <span>28
вот
</span></span></span>
Вопросы составишь вот по этой теме на соблюдать дисциплину и порядок, правила техники безопасности и чистоту;занимать рабочие места согласно указаниям преподавателя и не менять их самовольно;заниматься только тем видом деятельности, которую определил преподаватель;немедленно сообщать преподавателю о любых замеченных неисправностях оборудования или неверной работе программного обеспечения;немедленно сообщать преподавателю о любом случае травматизма в кабинете, особенно от электрического тока.
Program ryazantsev;
var n,k:integer;
begin
k:=0;
readln(n);
while n <> 0 do begin
if (n>=100) and (n<=999) and (n mod 4 = 0) then k:=k+1;
readln(n);
end;
writeln(k)
end.