Автор:
Оценка:
Опубликованно: 09.12.2009.
Язык: Латышский
Уровень: Университет
Литературный список: Нет
Ссылки: Не использованы
  • Конспект 'Pascal uzdevumu risinājumi', 1.
  • Конспект 'Pascal uzdevumu risinājumi', 2.
Фрагмент работы

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.…

Коментарий автора
Atlants