Question

Napisz we free pascalu program, który korzystajac z procedury, oblicza silnie podanej liczby oraz sume poszczególnych liczb od 1 do tej liczby i wyswietl ich wartosc na ekarnie monitora.

prosze nie kopiowac z innych stron

Answer 1

program nazwa;
var
        liczba:integer;
        silnia:longint;
        x:integer;
        suma:integer;

procedure sil_sum(a:integer);
begin
        for x:=1 to a do
        begin
                silnia:=silnia*x;
                suma:=suma+x;
        end;

        writeln('Silnia: ',silnia);
        writeln('Suma: ',suma);
end;

begin
        liczba:=0;
        silnia:=1;
        suma:=0;

        writeln('Podaj liczbe: ');
        readln(liczba);

        sil_sum(liczba);

readln;
end.

 

http://wklej.org/id/973206/