<span>Самая большая поразрядная сумма 18, значит, те у которых она больше, выкидываем
1616 - подходит (</span>например, <span>888)
169 16'9 </span> - подходит (например, 881)<span>
163 16'3</span> - подходит, но чтобы получить 16 во втором разряде как минимум должно быть 7 (97), тогда, даже если в третьем 0, уже сумма будет больше 3. Выкидываем<span>
1916 </span>Выкидываем<span>
1619 </span>Выкидываем<span>
316 3'16 не подходит, последовательность возрастает
916 9'16 </span>не подходит, последовательность возрастает<span>
116 подходит (например, 560)
Итого, три числа</span>
Var i,k,s:integer;
begin
writeln ('Введи 10 чисел');
for i:=1 to 10 do
begin
readln (k);
if k<0 then s:=s+k;
end;
writeln (s);
end.
program zakonnietona3;
uses crt;
var F1,F2: real;
begin
cls;
writeln('Третий закон Ньютона-тела действуют друг на друга с силами направленными ');
writeln('вдоль одной прямой,');
writeln(' равными по числовому значению и противоположны по направлению');
write('Введите первую силу');
read(F1);
F2:=-F1;
write('Вторая сила F2=',F2);
end.
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (a,b,c):=ReadReal3;
if (a<>b) and (a<0) and (b<0) and (c<0) then begin
(a,b,c):=(a*a,b*b,c*c);
Println(a,b,c)
end
else Writeln('Сумма равна ',a+b+c)
end.
I=16;
16₁₀=x₁₆
x₁₆=10₁₆
16₁₀=20₈
