31 Oca 2012 @ 9:00 PM 
 

4’e bölünemeyen iki basamaklı en küçük 38. sayı kaç olduğunu yazan program.

 

uses crt;
var
x,y:integer;
begin
clrscr;
for x:=10 to 99 do begin
if ((x mod 4)<>0)then
y:=y+1;
if y=38 then begin
writeln(x);break;end;    end;
readln;
end.

Tags Kategori: Pascal Programlama Konu Sahibi: NIKIMLOSAC
En son düzenleme: 31 Oca 2012 @ 09 00 PM

Email • Permalink
Önceki Konu Next
 

Responses to this post » (None)

 

Post a Comment

XHTML: You can use these tags: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>

Comment Meta:
RSS Feed for comments
TrackBack URI
\/ More Options ...
Son Açılan 50 Konu
Back
Register an account
Change Theme...
  • Users » 1
  • Posts/Pages » 310
  • Comments » 5
Change Theme...
  • VoidVoid « Default
  • LifeLife
  • EarthEarth
  • WindWind
  • WaterWater
  • FireFire
  • LightLight

Pascal Örnekleri



  • No Child Pages.

Wp eklenti listesi



  • No Child Pages.