Kare Hesaplama

(* El Alışkanlığı *)
Uses crt;
Var
i:byte;
Begin
Clrscr; (* Ekranı temizledik *)
Writeln('Sayı Karesi') ;
Writeln('**********');
for i:=1 to 500 do
writeln(i,' ',sqr(i));
end. (* the bitti *)

Yorum Yapabilmek İçin Üye Girişi Yapmanız Gerekmektedir.

kare hesaplama