Pascalda Üs Alma,Üsleri Toplama

[ALpMontana]

a4 +a3 + a2 + a1 +1 sonucunu bulan program
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.​

​

 

[HiJaCKerr]

ne bu hiç bişi anlamadım

 

[ALpMontana]

postmu kasmaya nıyetın wardıda ßuraya geldın?

 

[sonixes]

ßi Pascal teoremi vardı matematik te.Onu bilgisyarda da mı yapabiliyoruz.Onu anladım doğru mu:melek

 

[Passenger]

postmu kasmaya nıyetın wardıda ßuraya geldın?

helal sana
bılader boyle post kasıyolar
konuyla alakası olmayanlar :goz:​