Question

sa se afiseze perechile de numere a si b care satisfac relatiile a+b=1000 ; 17 divide pe a si 19 divide pe b ​(pascal)

Answer 1

Răspuns:

program caut_a_b;

var a,b:integer;

begin

 a:=17;  

 while a<=1000 do

   begin

     b:=19;

     while b<=1000 do

       begin

         if a+b=1000 then writeln(a,' ',b);

         inc(b,19);

       end;

     inc(a,17);

   end;

end.

Explicație:

am pus și imagine să vezi rezultatul execuției programului..

Succese Svetlana !!! (cred Svetlana se traduce Luminița ... :))) )

O seară frumoasă!