BEGIN
writeln('Enter A number');
realdln(A);
writeln('Enter B number');
readln(B);
if (A<>B) then
begin
A:=A*5;
B:=B-5;
end else
begin
if ((A<0) and (B<0))
begin
A:=A*A;
B:=B*B
end;
end;
writeln(A, B);
END.
Если масив заполнить нужно рандомно:
program wk;
var i,s:integer;mas:array [1..10] of integer;
begin
s:=0;
for i:=1 to 10 do
begin
mas[i]:=random(21)-20;
if mas[i] mod 2=0 then s:=s+mas[i];
end;
writeln('S=',s)
end.
Если масив заполняется с клавиатуры:
program wk;
var i,s:integer;mas:array [1..10] of integer;
begin
s:=0;
for i:=1 to 10 do
begin
readln(mas[i]);
if (mas[i] mod 2)=0 then s:=s+mas[i];
end;
writeln('S=',s)
end.
Результат вычисления выражения = 191581231380289703904
В 7-ричной системе = 666666666666660066666600
Кол-во цифр 6 = 20
49^12 – 7^10 + 7^8 – 49 = <span>7^24 – 7^10 + 7^8 – 7^2
</span>7^24 – 7^10 (7) = 10e24-10e10 = <span>666666666666660000000000 => 24-10 = 14 "6"
</span>7^8 – 7^2 (7) = 10e8-10e2 = 66666600 => 8-2=6 <span> "6"
Ответ 14+6 = 20
</span>