Var
A,p:integer;
begin
Write('Введиnе число:');
Readln(A);
p:= A mod 10;
while A > 9 do
A:=A div 10;
p:=p*A;
WriteLn(p);
Readln;
<span>end.</span>
Пусть первое число записано в виде a₁a₂a₃, второе - b₁b₂b₃, а поразрядные суммы находятся как c₁=a₁+b₁, c₂=a₂+b₂, c₃=a₃+b₃
Очевидно, что поскольку a,b ∈ [0;9], то min(c)=0, max(c)=18.
Пусть результирующее число D имеет запись d₁d₂d₃, d₁,d₂,d₃ ∈ [0;18],
тогда D запишется как c₁c₂c₃, если c₁<c₂ и как c₂c₁c₃ в ином случае.
Следовательно, две первые "цифры" в результате всегда следуют в порядке неубывания.
А) 171412 - разделяется только как 17 14 12, 17>14, это убывание, а оно НЕДОПУСТИМО.
В) 121419 - разделяется только как 12 14 19, сумма 19 НЕДОПУСТИМА.
С) 81714 - разделяется только как 8 17 14, 8<17, это неубывание и оно ДОПУСТИМО.
D) 15117 - разделяется только как 15 11 7, 15>14, это убывание, а оно НЕДОПУСТИМО.
E) 4809 - корректно не разделяется на три части и это НЕДОПУСТИМО.
Ответ: C
Могу Помочь С 5-ым Номером. - (2,3) (6,3) (9,3) (12,1) (9,1) (7,1) (10,1) (5,3) (1,3) (12,1) (4,1) (6,3) (12,1) (3,3) (7,2) (2,1) (5,1) (3,3) (10,3) (4,2) (8,2) (12,1) (10,3) (12,1) (7,1) (7,2) (2,3) (1,1) (10,1) (12,1) (10,3) (9,3) (12,1) (6,1) (7,1) (10,1) (5,3) (1,3) (12,3)
4-ый номер - чётёщ лтчат ыгыт кёюлтёдлц.
или я хочу спать, или 4-тый номер странноватый •_•
1:
var
x, y: real;
begin
Readln(x, y);
Writeln((y >= 0) and (y <= x + 4) and (y <= 4 - x))
end.
2:
var x,y: real;
begin
read (x, y);
if (x>=3) and (x<=5) and (y>=3) and (y<=5) then
writeln('true')
else
writeln('false');
end.
