Funkcja program.txt

(0 KB) Pobierz 
program funkcje;
uses Crt;

var c,d :integer;
e: longint;

        function suma(a,b :integer) :longint;
        var c :integer;
        begin
        ClrScr;
        c:=a+b;
        suma:=c;
        end;
        begin
        ClrScr;

        write ('Podaj dwie liczby :');
        readln(c,d);
        e:=suma(c,d);
        writeln('Suma wynosi ',e);
        readln;
        end.

Plik z chomika:

Inne pliki z tego folderu:

Inne foldery tego chomika:

Zgłoś jeśli naruszono regulamin