(-(y+z)*x)*-(y+z)=F
X Y Z Y+Z 1.-(Y+Z) 1.*X. 1.*(1.*X)
0 0 0. 0. 1. 0. 0
0 0 1. 1. 0. 0. 0
0 1 0. 1. 0. 0. 0
0 1 1. 1. 0. 0. 0
1 0 0. 0. 1. 1. 1. - Ответ
1 0 1. 1. 0. 0. 0
1 1 0. 1. 0. 0. 0
1 1 1. 1. 0. 0. 0
ответ х1 у0 z0
99000099
если нужна прога то вот
program pr_1;var x,c,c1,k,y,max:longint;beginmax:=0;for x:=1000 to 9999 do beginfor y:=1000 to 9999 do beginc:=x*y;c1:=c;k:=0;while c<>0 do begink:=k*10+(c mod 10);c:=c div 10;end;if ((k=c1) and (k>max)) then max:=k;end;end;writeln('ответ:',max);writeln('x=',x);writeln('y=',y);end.
Ответ:
Var name,s:string;
Begin
Writeln('Введите Ваше имя и класс через пробел');
Read(s);
Ffor i:=1 to length(s) do
Begin
If s[i]= ' ' then break;
Name:=name+s[i];
End;
Write(name, ' , поздравляем с написанием первой программы на языке Паскаль');
End.