Найти минимальное натуральное число,которое при делении на 2 дает в остатке 1,при делении на 3 дает в остатке2,при делении на 4 дает в остатке 3,при делении на 5 дает в остатке 4,при делении на 6 дает в остатке 5,а при делении на 7 дает в остатке 6.
var n:integer; nashel:boolean; begin n:=0; nashel:=false; while not nashel do if ((n mod 2 = 1)and(n mod 3 = 2)and(n mod 4 = 3)and(n mod 5 = 4)and(n mod 6 = 5)and(n mod 7 = 6)) then nashel:=true else n:=n+1; writeln(n); end.
var n:integer; nashel:boolean;
begin
n:=0;
nashel:=false;
while not nashel do if ((n mod 2 = 1)and(n mod 3 = 2)and(n mod 4 = 3)and(n mod 5 = 4)and(n mod 6 = 5)and(n mod 7 = 6)) then nashel:=true else n:=n+1;
writeln(n);
end.
ответ: 419