Question

Se dau doua numere naturale a si b.Determinati daca numrele date sint vecine in sirul nr pare .In turbo pascal varog.

Answer 1

Răspuns:

program vecine;

var a,b:integer;

begin

 writeln('Introdu doua numere naturale:');

 write('a='); read(a);

 write('b='); read(b);

 if (abs(a-b)=2) and (a mod 2=0) then

    writeln('sunt pare vecine')

 else writeln('nu sunt pare vecine');

 readln;

end.

Explicație:

nu am mai verificat ca numerele introduse sa fie pozitive, deoarece in enunt se spune ca se introduc doua naturale,,, Succese!