pascalda üs alma üsleri toplama

Konu: pascalda üs alma üsleri toplama Perş. Mart 19, 2009 6:33 pm

program us_alma;
uses crt;
var
i,us,sayi,carpim,toplam:integer;
begin
clrscr;
Writeln(' sayi gireceksiniz');readln(sayi);
Writeln('kuvvet giriniz');readln(us);
carpim:=1;
toplam:=1;
for i:=1 to us do
begin
carpim:=carpim*sayi;
toplam:=toplam+carpim;
end;
writeln('carpim : ',carpim,' toplam : ',toplam);
readln;
end.

alıntıdır

» silah bug u ve silah ı eline çabuk alma yöntemi