Составить программу нахождения числа, которое при делении на 2 дает в остатке 1: при делении на 3 дает в остатке 2; при делении на 4 дает в остатке 3; при делении на 5 дает в остатке 4; при делении на 6 дает в остатке 5; но на 7 делится нацело. Найдите число, обладающие этим свойством, выведите его на печать- Pascal(Паскаль)

uses crt;
var n:integer;
    f:boolean;
begin
clrscr;
n:=1;
f:=false;
while not f 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=0) then
 begin
  f:=true;
  write('n=',n);
 end
else n:=n+1;
readln
end.

Похожие записи/страницы:

Leave a Comment

83 − = 81