[Voytek]

Napisany przez @ndy

Aplikacja konsolowa będzie wyglądała tak:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
   a, b, c: integer;
begin
  Write('Podaj pierwsza liczbe: ');
	 Readln(a);
  Write('Podaj drugą liczbe: ');
	 Readln(b);
  Write('Podaj trzecią liczbę: ');
	 Readln(c);
  Writeln('Średnia arytmetyczna liczb ' ,a,' ',b,' ',c,' wynosi: ',((a+b+c)/3):0:2);
	 Readln;
end.

Jeżeli chcesz zrobić na przyciskach i editach to podpinasz zmienne do nich.

@ndy tez tak chciałem zrobic i dzieki za checi i podpowiedz, ale myslalem
o tym co Posłany

Napisany przez Posłany

Pewnie Tobie chodziło aby to była dowolna liczba, np. 84328746327865432646523
A więc to proste, dziś napisze jak to zrobić, a jutro, jakbyś nie dał rady napisać sam to napisze tu(dziś już czasu nie mam )
Zapisujesz liczbę do stringa, następnia sprawdzasz długość stringa (Count bodajże), i zaopetlasz to w for.
Co jedno przejscie pętli for zmienna licznik(integer) zwieksza się o 1, a do zmiennej suma dodaje sie aktualna liczba:
suma:=suma+StrToInt(liczba[index_pętli_for]);

potem dzielisz i tyle Aha - typ wyniku daj jako real

Poprosze jak bedziesz mial czas o kod bo debugowanie mi wyskakuje....
Pozdrawim
Voytek