Bir Algoritma Sorusu ??

Girilen sayinin 10'a bolunmesi ile basamaklari bulunur. Kac kere bolunuyorsa basamak sayisi o kadardir. Akis diagramini buna gore kendin olusturabilirsin.

int girilensayi, basamak = 0;
while(girilensayi > 0)
{
	girilensayi /= 10;
	basamak++;
}

<?php
$sayi = 1453;
$kactane = strlen($sayi)-1;
$virgul = chunk_split($sayi,1,",");
$parca = explode(",",$virgul);
$toplam="";
for($i=0;$i<=$kactane;$i++)
{
$toplam = $parca[$i]+$toplam;
}
echo $toplam;
?>

aklına takılan nokta varsa yardımcı olabileceğim kadarıyla yardımcı olurum.

Visual basic için hazırladım hocam kolay gelsin.

List1.Clear
For i = 1 To Len(Text1.Text)
Dim basamak As String
basamak = Left(Text1.Text, i)
Dim cevir As String
cevir = Right(basamak, 1)
List1.AddItem (i & ".Basamak = " & cevir)
Next i

bir form oluştur ve
1 label
1 textbox
1 button
1 de listbox ekle.

sonra şu kodları formuna yapıştır.

Mantık, textboxa girdiğin sayıları basamak olarak ayırıp listboxa aktarır. daha sonra ise listboxtaki sayıları for döngüsüyle toplar. Sonuçta textboxa klavyeden herhangi bir sayı uzunlukfarketmez girebilirsin. Butona bastığında hepsini toplayacaktır, kolay gelsin.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Listbox1.Items.Clear()
        For i = 1 To Len(Textbox1.Text)
            Dim basamak As String
            basamak = Microsoft.VisualBasic.Left(Textbox1.Text, i)
            Dim cevir As String
            cevir = Microsoft.VisualBasic.Right(basamak, 1)
            Listbox1.Items.Add(cevir)
        Next i
        Dim toplam As Integer = 0
        For i As Integer = 0 To Listbox1.Items.Count - 1
            toplam += CInt(Listbox1.Items.Item(i))
        Next
        Label1.Text = toplam.ToString
    End Sub