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.
F1-3, F2-4, F5-5, F4-1, F3-2?
закрыто окошком
<u>PascalABC.NET 3.4.0, сборка 1675 от 12.06.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('n=');
var a:=ArrRandom(n,-50,50); a.Println;
var b:=new integer[n];
for var i:=0 to n-1 do
b[i]:=a[:i+1].Max;
b.Println
end.
<em>Пример</em>
n= 15
-21 27 -19 -7 34 -20 25 36 40 -2 40 43 -37 41 7
-21 27 27 27 34 34 34 36 40 40 40 43 43 43 43
Ответ:
Ответ а, другие если подставить, то они не подходят, у тебя между скобками конъюнкция, значит в обеих скобках должно быть 1.