Uses crt;
Var
ad : string[20];
fiyat :real;
tfiyat : real;
Begin
Clrscr;
write('Urun İsmi....:');readln(ad);
write('Fiyatı.....:');readln(fiyat);
tfiyat:=fiyat*1.15;
writeln;
writeln('Ürünün Kdv'li Fiyatı ... : ',tfiyat,'YTL');
Readln;
End.

Beğeniler: 0
Favoriler: 0
İzlenmeler: 3898
favori
like
share
MAMDEL Tarih: 18.03.2010 23:47
BAKALIM ÖNCE YİNE DE TŞK EDERİZ
avensola Tarih: 02.09.2009 09:29
tesekkürler
atakan_0 Tarih: 31.08.2009 13:39
teşekkürle kardeş umarım işimize yarar
cuka Tarih: 29.03.2009 01:57
TŞK
aacayyip Tarih: 16.07.2007 13:36
Teşekkürler arkadaşlar.
Ellerinize sağlık.
serdar-u Tarih: 15.07.2007 21:20
tesekkurler