Я тебе даю формулы ты уже выбирай сам какую
Расписание уроков, т.к. оно несет организационную информацию для учителей и учеников.
Var a,z:integer;
q:boolean;
begin
read(a);
while a>0 do begin
z:=a mod 10;
if (z>3)and(z<8) then q:=true;
a:=a div 10;
end;
writeln(q);
end.
В прямом коде:
В обратном коде:
В дополнительном коде коде: