Uses crt;
var summa, raz,st,storona1,storona2:real;
begin
ClrScr;
writeln("Введите сумму двух чисел");
readln(summa);
writeln("Введите во сколько раз одно больше другого");
readln(raz);
st:=summa/(raz+1);
storona1:=st;
storona2:=st*raz;
write("1 число-", storona1:7:2,"ед.");
Enter.....................
Пусть первое число записано в виде 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
Var i,s,x:integer;;
Begin
s:=0;
For i:=1 to 15 do
Begin
x:=sqr(i);
s:=s+x;
End;
Writeln('suma =',s );
<span>End.
2) второе решение
</span>Var i,s,x:integer;;
Begin
s:=0;
For i:=1 to 15 do s:=s+sqr(i);
Writeln('suma =',s );
End.<span>
</span>