var a,b,c,d:integer; function max(a:integer; b:integer):integer; begin if (a>b) then max:=a else max:=b; end; begin readln(a,b,c,d); writeln(max(max(a,b),max(c,d))); end.
Если дословно то: var a, b, c, d; function max(a, b) { if (a > b) { return a; } else { return b; }; }; a = prompt("a"); b = prompt("b"); c = prompt("c"); d = prompt("d"); alert(max(max(a,b), max(c,d))); Код var a, b, c, d; function max(a, b) { if (a > b) { return a; } else { return b; }; }; a = prompt("a"); b = prompt("b"); c = prompt("c"); d = prompt("d"); alert(max(max(a,b), max(c,d)));
asdfowner, Так же в паскале строгое приведение типов в отличии от динамического в жс. Можно поебаться и написать самому проверки на типы, а можно переписать это на тупоскрипте и скопировать что выдаст компилятор. Но это делать сегодня я не стану. Всем спок.