3. If not (A = B) Then
begin
A = A + B;
B = A + B;
end
else
begin
A = 0;
B = 0;
end;
Var a:array [1..12] of integer;
<span>i,sum:integer; </span>
<span>begin </span>
<span>sum:=0; </span>
<span>randomize; </span>
<span>for i:=1 to 12 do begin </span>
<span>a[i]:=random(10,99); </span>
<span>if a[i] mod 2 =0 then sum:=sum+a[i]; </span>
<span>end; </span>
<span>writeln('Сумма четных чисел массива = ',sum); </span>
<span>end.</span>
<u>PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var x:=ReadReal('x=');
var r:=Sqrt(Abs((Sqr(x**5-3)-5)/(5*x-7))+7)+10*x;
Print(r);
r:=Round(r);
Println(r)
end.
<u>Пример</u>
x= -12.502
36508.4531755161 36508
К архиваторам. Это лучший и бесплатный архиватор
i=8 бит
V = 8*512*128 бит = 512*128 байт = 128/2 Кбайт = 64 Кбайт
Отв: 64 Кбайт