Girilen sayının her birini ayırıp alt alta yazan program.

09.07.2012 - 03:32

uses crt;
   var
   a,b,c,d,e,f,sayi:integer;
   devam:char;
   begin
   clrscr;
   devam:=’e’ do begin
   write(‘4 basamaklı sayıyı girin:’);readln(sayi);
   a:=sayi div 1000;
   b:=sayi mod 1000;
   c:=b div 100;
   d:=b mod 100;
   e:=d div 10;



   f:=d mod 10;
   writeln(a);
   writeln(c);
   writeln(e);
   writeln(f);
   writeln(‘devam mı?e/h’); devam:=readkey;
   if (devam=’h’)then halt; end;
   readln;
   end.

Linkback: https://www.buyuknet.com/girilen-sayinin-her-birini-ayirip-alt-alta-yazan-program-t38223.0.html