Program gt;
var a:array[0..100]of integer;
s,i,n:integer;
begin
s:=0;
n:=12;
for i:=0 to n do
read(a[i]);
for i:=0 to n do
begin
if(a[n-i]-a[i]=a[i])then s:=s+2*a[i];
end;
writeln(S);
<span>end.
ответ 80
2)
такая же программа но там умножаем на 3
и числа другие
ответ 24</span>
<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
Range(20, 50).Where(t -> (t mod 3 = 0) and (t mod 5 <> 0)).Println
end.
<h2>21 24 27 33 36 39 42 48</h2>
Поскольку четность или нечетность числа в любой системе счисления определяется четностью или нечетностью последней цифры в записи числа и искомое число не встречается на этой позиции, оно может быть как четным так и нечетным. Из-за того, что искомое число должно быть максимальным в системе счисления с наименьшим основанием из 33, 34 и 35. Таким числом будет число 32.
В десятичной системе это число будет равно 3*33+2=101
Var
a,chislo,t:longint;
<span>c,nov,posl:integer; </span>
<span>begin </span>
<span>readln(a); </span>
<span>posl:=a mod 10; </span>
<span>chislo:=a; </span>
<span>t:=1; </span>
<span>repeat </span>
<span>a:=a div 10; </span>
<span>t:=t*10; </span>
<span>until a<10; </span>
<span>chislo:=chislo mod t; </span>
<span>chislo:=posl*t+chislo-posl+a; </span>
<span>writeln(chislo); </span>
<span>readln; </span>
<span>end.</span>
Type Point=record
x: integer;
y: integer;
end;
var p1, p2, p3, p4 : Point;
function length(p1, p2 : Point) : real;
begin
length := sqrt(sqr(p1.x - p2.x) + sqr(p1.y - p2.y));
end;
Begin
readln(p1.x, p1.y);
readln(p2.x, p2.y);
readln(p3.x, p3.y);
readln(p4.x, p4.y);
if (length(p1, p2) = length (p3, p4)) and (length(p3, p2) = length (p1, p4)) then
writeln('P = ', abs(2 * (length(p1, p2) + length(p3, p2)) ))
else writeln('No');
End.
