Найти все трехзначные числа которые при увеличении на 1 делятся на 2 при увеличении на 2 делятся на 3 при увеличении на 3 делятся на 4 а при увеличении на 4 делятся на 5 — Pascal(Паскаль)

var
   i,j:integer;
begin
     for i:= 100 to 999 do
         for j:= 2 to 5 do
           if (i+j-1) mod j<>0 then break else
              if j=5 then write(i,' ');
     readln;
end.

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

Leave a Comment

+ 82 = 88