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
" Life is not a problem to be solved but a reality to be experienced! "
© Copyright 2013 - 2024 KUDO.TIPS - All rights reserved.
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/