Question

elaborati un program pascal care va gasi toate numerele naturale de 4 cifre cu propriotatea ca sunt divizibele prin 11 si 17

Answer 1

Program Augustin;
var
i,n,s:integer;
begin
n:=1000;
for i:=1000 to 9999 do
begin
if n mod 11 and n mod 17=0 then
Writeln(n);
n:=n+1;
end;
readln;
end.