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ă!
