|
Registriert seit: 13. Jul 2003
505 Beiträge
Delphi 7 Professional
|
Re: Hilfe! Problem in Pascal!
5. Okt 2003, 10:35
Ich hab dein Problem gelöst:
Delphi-Quellcode:
var note,sum,i,x:integer;
begin
i:=-1;
sum:=0;
while (note > 0) do begin
writeln('Gib die Note ein'); ReadLn(note);
sum:=sum+note;
i:=i+1;
end;
writeln(sum/i);
ReadLn;
end.
|