Для перевода экрана в графический режим.
Var i : Integer;
Begin
For i:=100 to 999 do
If (i mod 4 = 2) and (i mod 5 = 2) and (i mod 6 = 2) then Writeln(i);
end.
Результат:
122
182
242
302
362
422
482
542
602
662
722
782
842
902
962
<span>A:=X div 1000=1234/1000=1
B:= X mod 1000 div 100=(1234/1000)/100=234/100=2
C:= X mod 100 div 10=(1234/100)/10=34/10=3
D:= X mod 10=1234/10=4
Y:=1000*d+100*c+10*b+a=1000*4+100*3+10*2+1=4321
</span><span>F:= X - Y+1=1234-4321+1=-3086</span>
Масимально сдали все 4:
Согласно четвертому правилу если сдал 4 то 1 тоже сдал. Согласно первому правилу если 1 сдал, то и 2 сдал. Согласно 2 правилу если 2 сдал то и 3 сдал.