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.
Пацаны раскиньте в чем прикол!!!
Глюк ПАСКАЛЯ |