Code:
program maksimumi;
var a,b,c,d,max4:integer;
function max(a,b:integer):integer;
var
x:integer;
begin
if (a>b) then
x:=a
else
x:=b;
max:=x;
end;
begin
writeln(Unesite 4 broja');
readln(a,b,c,d);
max4:=max(max(a,b),max(c,d));
writeln('Maksimum od 4 uneta broja je ',max4(a mod 10,b mod 10,c mod 10,d mod 10));
readln;
end.
program maksimumi;
var a,b,c,d,max4:integer;
function max(a,b:integer):integer;
var
x:integer;
begin
if (a>b) then
x:=a
else
x:=b;
max:=x;
end;
begin
writeln(Unesite 4 broja');
readln(a,b,c,d);
max4:=max(max(a,b),max(c,d));
writeln('Maksimum od 4 uneta broja je ',max4(a mod 10,b mod 10,c mod 10,d mod 10));
readln;
end.
17 / 44 untitl~1.pas
Fatal: Syntax error, ) expected but ( found
Ovo mi prikazuje prilikom štampanja na kraju programa, problem je zagrada ispred ''max4''. Trudim se da sve zadatke odradim sam i do sada nisam imao problema, ali sada zaista ne vidim gde grešim, pa ako bi neko mogao da mi ukaže na grešku. Hvala unapred!
Edit: Zaboravih da napomenem da mi se u zadatku trazi štampanje najveće među poslednjim ciframa brojeva a,b,c,d.