Question

Prosze o pomoc w napisaniu programu w PASCALU.

Wprowadzam z klawiatury 5 liczb, nastepnie komputer ma je i ich potegi wydrukowac oraz wydrukowac sume (tych liczb)..

Wprowadzam liczby 5,7,11,20,8(przyklad wpisanych losowo liczb).

Przyklad, jak powinno to wygldac.

-----

5 - 25 5

7 - 49 12

11 - 121 23

20 - 400 43

8 - 64 51

Suma liczb wynosi 51

------

Dzieki, za szybka odp dam naj ;) Potrzebne na wtorek do 11:00.

Pozdrawiam.

Answer 1

program liczby;

uses crt;

var a, b, c, d, e, licznik : integer;

begin

clrscr;

Wrileln('Wprowadzanie liczb:');

Write('Pierwsza liczba: ');

readln(a);

Write('Druga liczba: ');

readln(b);

Write('Trzecia liczba: ');

readln(c);

Write('Czwarta liczba: ');

readln(d);

Write('Piąta liczba: ');

readln(e);

Writeln;

Writeln;

writeln('Potęgi wprowadzonych liczb:');

Writeln(a,': ',a, ',' ,a*a, ',' ,a*a*a);

Writeln(b,': ',b, ',' ,b*b, ',' ,b*b*b);

Writeln(c,': ',c, ',' ,c*c, ',' ,c*c*c);

Writeln(d,': ',d, ',' ,d*d, ',' ,d*d*d);

Writeln(e,': ',e, ',' ,e*e, ',' ,e*e*e);

Writeln;

writeln;

write('suma: ',a+b+c+d+e);

end.

 

------------

to jest program, w którym sam zakładasz ilość potęg. Można pokombinować nad ich zadeklarowaniem na początku.