Question

Dacă x şi y sunt două numere naturale cu x 1 y, atunci notâm cu s(x,y) suma numerelor naturale cuprinse între şi y. De exemplu, s(3,6)= 3+4+5+6 18, iar s(7,7)= 7. Se dau numerele naturale a, b şi c, unde a mai mic egal ca b mau mic egal ca c. Calculați s(a,b), s(b,c) şi s(a,c).PASCAL​

Answer 1

Răspuns:

 var

   a, b, c: Word;

 function s(x, y: Word): Word;

   var

     suma, i: Word;

 begin

   suma := 0;

   for i := x to y do

     Inc(suma, i);

   s := suma;

 end;

begin

 Write('a: ');

 ReadLn(a);

 Write('b: ');

 ReadLn(b);

 Write('c: ');

 ReadLn(c);

 WriteLn('Suma numerelor de la ', a, ' la ', b, ' este ', s(a, b));

 WriteLn('Suma numerelor de la ', b, ' la ', c, ' este ', s(b, c));

 WriteLn('Suma numerelor de la ', a, ' la ', c, ' este ', s(a, c));

end.

Explicație:

Cum exerciţiul pare să vizeze declararea şi folosirea unei funcţii, am presupus că relaţia dintre numere este parte din enunţ, nu din problemă.