beispiel 3

Aus ProgrammingWiki

Archivierte Version vom 2011-01-19T14:16:12+00:00. Aktuelle Version

Programmierbeispiel: Schleifen

procedure summe;
var a,e,s,i : integer;
begin
a:=strtoint(inputdialog(' Anfangszahl:');
b:=strtoint(inputdialog(' Endzahl:');
s:=0;
for i:= a to e do s:=s+1;
showmessage(inttostr(s))
end;

<eval id=" "> begin writeln(inttostr(s); end. </eval>

beispiel 3

Suche