Question

într-un parc sunt n alei. Pe fiecare alee sunt n arbori. Fiecare arbore are n crengi. Pe fiecare creanga sunt in cuiburi. În fiecare cuib sunt n păsări. Câte păsări sunt în parc?PASCAL​

Answer 1

Răspuns:

 uses

   Math;

 var

   n: Word;

begin

 Write('n: ');

 ReadLn(n);

 WriteLn('În parc sunt ',

   n * { alei }

   n * { arbori }

   n * { crengi }

   n * { cuiburi }

   n,  { păsări }

 ' păsări');

 WriteLn('În parc sunt ', Power(n, 5):0:0, ' păsări');

end.

Explicație:

Nu mi-a fost clar dacă scopul exerciţiu este folosirea funcţiei Power, care nu este accesibil în toate variantele de Pascal. Dacă se renunță la folosirea funcţiei Power, trebuie eliminată și clauza uses.