Kod: Zaznacz cały
function suma(a, b : integer) : integer;
begin
procedure pisz(a : integer);
begin
writeln(a);
end;
suma := a+b;
pisz(suma);
end;
Kod: Zaznacz cały
function suma(a, b : integer) : integer;
begin
procedure pisz(a : integer);
begin
writeln(a);
end;
suma := a+b;
pisz(suma);
end;
Kod: Zaznacz cały
Program Funkcja;
Uses crt;
Var a, b : integer;
Function suma(a, b : integer) : integer;
Procedure Kolor;
Begin
Textcolor (Green);
Textbackground (Yellow);
End;
Begin
suma := a+b;
Kolor;
Writeln(suma);
End;
Begin
Writeln ('Podaj wartość a: ');
Readln (a);
Writeln ('Podaj wartość b: ');
Readln (b);
suma(a,b);
End.
Użytkownicy przeglądający to forum: Obecnie na forum nie ma żadnego zarejestrowanego użytkownika i 7 gości