Question

(w języku Pascal).Pan Nowak wpłacił w styczniu do banku 100 zł, a każdego następnego miesiąca będzie wpłacał o 10 zł więcej. Napisz program, który oblicza stan konta pana Nowaka po n miesiącach oraz kwotę ostatniej wpłaty. (w języku Pascal)

Answer 1

uses crt;

 

var

 n,i:word; //miesiace,licznik

 stan_konta,wplata:longint;

 

begin

 clrscr;

 write('Podaj liczbe miesiecy: ');

 readln(n);

 i:=0;

 stan_konta:=100;

 wplata:=100;

 while i<>n do

 begin

  wplata:=wplata+10;

  stan_konta:=stan_konta+wplata;

  inc(i);

 end;

 writeln('Stan konta po ',n,' miesiacach: ',stan_konta);

 writeln('Kwota ostatniej wplaty: ',wplata);

 readkey;

end.