Question

Sa se scrie 3 programe (unul cu utilizarea instructiunii For, altul cu utilizarea instructiunii While,si al treilea cu utilizarea iinstructiunii Repeat) care afiseaza pe ecran numerele naturale mai mici sau egale cu N,care-s divizibile cu 5
PROGRAMUL PASCAL
Ugent!

Answer 1

for i:=1 to n do
if i mod 5=0 then write(i)

i:=1
while i<n do begin
if i mod 5=0 then write(i)
inc(i) end;

i:=0
repeat
inc(i);
if i mod 5=0 then write(i)
until i=n;

P.S. inc(i) este echivalent cu i:=i+1;