Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
ANDERSON MARINS DE SOUZA 600622591
program VS; uses crt; var vf, tj, am, prest:real; n:integer; begin writeln('UNIVERSO - UNIVERSIDADE SALGADO DE OLIVEIRA.'); writeln('ALUNO: ANDERSON MARINS DE SOUZA'); writeln('MATRICULA:600622591'); writeln('DISCIPLINA: ICC2'); writeln( 'N AMORT. JUROS PREST. VALOR FINANC.'); vf:= 16779; tj:= vf*1.58; am:= vf/8; n:=1; while(n<=8) do begin tj := vf*(1.58/100); prest := am + tj; vf := vf - am; writeln (n , am:10:2, ' ' , tj :10:2, ' ' , prest :10:2, ' ' , vf:10:2); n := n+1; End; End.
run
|
edit
|
history
|
help
0
Tri 1.0
Calculatrice(TROP compliqué)
Enkripsi2
Пиріжки
aefrt
6
Tri 1.0
NOT a String in Pascal
Бассейн-8 count
zadacha5