Program gluk;
uses crt;
var z,a:integer;
function change (x:integer):integer;
begin
z:=z-x;
change:=sqr(x);
end;
begin
clrscr;
z:=10; a:=change(z); Writeln (z,' ',a);
Z:=10; a:=change(10)*change(z); Writeln (z,' ',a);
Z:=10; a:=change(z)*change(10); Writeln (z,' ',a);
Writeln;
z:=10; a:=(change(z)); Writeln (z,' ',a);
Z:=10; a:=(change(10))*(change(z)); Writeln (z,' ',a);
Z:=10; a:=(change(z))*(change(10)); Writeln (z,' ',a);
readkey;
end.


Пацаны раскиньте в чем прикол!!!

У меня все работает....только непонятно, что она должна делать?

может, тебя прикололо, что change(10)*change(z)<>change(z)*change(10) даже при том, что z=10? Так ведь и функция у тебя тоже такая смешная, что оно так и должно быть...

Просто PASCAL написали арабы параметры подставляюься с права на лево!!!

Чё то я не понял что имелось ввиду...

Посмотри на название проги - то и имелось  ;D

Всёравно не понял ничего...

Прости за грубость! ГЛЮК У ТЯ В ДНК!

Тема закрыта!!!!!!