Programın Kodları Pascal uses crt; var a, b:integer; begin write ;readln ; write ;readln ; while do begin if then write else write ; readln ; end; writeln ; readln; end. C++ #include<stdio. h> #include<conio. h> #include<math. h> int a, b; main { printf ;scanf ;printf ; printf ;scanf ;printf ; while printf ; getch ; } NOTascal programına küçük bir eklenti yaparak programı daha mantıklı bir hale getirebiliriz. Bu da "write ;readln ;" ifadesinin hemen altına "clrscr;" komutunu ekleyelim. Clrscr : Bu komut kendinden önce ekranda yazılan herşeyi temizler. Peki bu bize ne avantaj sağlayacak. bulunacak sayıyı girdikten hemen sonra bu komutu yazdığımızda tahmin edilecek sayı ekrandan temizlenecek ve program daha mantıklı bir hale gelecektir. ...:::Kolay Gelsin:::... Alıntıdır.. + elimde 2,3 tane bilgi wardı onları weriyim dedim..