SCRIETI UN PROGRAM CARE AFISEAZA TOATE NR DIV CU 7 INTE 10000 SI 100 000

REZOLVARE DRAGOS

program dedy;

uses crt;

var i:longint;

begin

clrscr;

for i:=10000 to 100000 do

if i mod 7 = 0 then writeln(i);

readln;

end.

CALCULATI SI SUMA ACESTOR NUMERE !