Autors:
Vērtējums:
Publicēts: 09.12.2009.
Valoda: Latviešu
Līmenis: Augstskolas
Literatūras saraksts: Nav
Atsauces: Nav
  • Konspekts 'Pascal uzdevumu risinājumi', 1.
  • Konspekts 'Pascal uzdevumu risinājumi', 2.
Darba fragmentsAizvērt

program mr1;
uses crt;
var S,S0,P,N: Real;
begin
clrscr;
Write('Ievadiet noguldito summu - S0-->');
Readln(S0);
Write('Ievadiet gadu skaitu N-->');
Readln(N);
Write('Ievadiet procentu likmi P-->');
Readln(P);
S:=S0*exp(N*ln(1+P/100));
Writeln('ieguta nauda ',S:0:2);
readln
end.…

Autora komentārsAtvērt
Atlants