Girilen sayının her birini ayırıp alt alta yazan program.
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