Hej hur ser ett program ut som beräknar siffersumman
av ett tal man matar in. Dvs matar man in 2345 ska man få "14" som svar.

Tack på förhand.

Hej
Så här ungefär i VB

Option Explicit

Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim sLen As Long, i As Long
Dim Sum As Long
Select Case KeyAscii
Case 8, 13, 48 To 57
Case Else
KeyAscii = 0
End Select
'Tryck Enter när du skrivit dina siffror
If KeyAscii = 13 Then
sLen = Len(Text1.Text)
For i = 1 To sLen
Sum = Sum + CLng(Mid$(Text1.Text, i, 1))
Next 'i
Label1 = Sum
End If
End Sub

mvh
Sven

Tja, jag har ju aldrig programmerat i Pascal, men jag kan väl lika gärna lära mig det nu. Det borde bli nåt sånt här:

program Siffersumma;
var
tal : String;
loopVar : integer;
summa : integer;
begin
write('Skriv ett tal: ');
readln(tal);
loopVar := 1;
summa := 0;
while ord (tal[loopVar]) >= '0' and ord (tal[loopVar]) <= '9' do
begin
summa := summa + ord (tal[loopVar]) - 48;
loopVar := loopVar + 1;
end;
writeln('Siffersumman är: ', summa);
end.

Hade just en sån uppgift på ett pascalprov i skolan
Har inte testat den men det är i alla fall principen...
Koden:

Var tal,siffra1,siffra2,siffra3,summa : Integer;

Write('Skriv in ett tal med tre siffror: ');
Readln(tal);

siffra1:=tal div 100;
siffra2:=(tal mod 100) div 10;
siffra3:=(tal mod 10);

summa:=siffra1+siffra2+siffra3

Writeln('siffersumman är: ',summa);

Tack det fungerade utmärkt!