const n = 10;
var a: array[1..n] of integer;
i, k, j: integer;
begin
randomize;
for i:=1 to n do
begin
a[i] := random(31);
write(a[i],' ')
end;
writeln;
i := 1;
k := n;
while i<=k do
if a[i] mod 2 <> 0 then
begin
k := k-1;
for j:=i to k do a[j] := a[j+1]
end
else i := i+1;
for i:=1 to k do write(a[i],' ');
end.
Ответ:
<h3>Мы живем в мире, где массовая и целенаправленная слежка, нападения на людей и гражданское общество, притеснения членов уязвимых групп в цифровой среде и широкий спектр различных мнений и их выражение приводят к серьезным последствиям, в том числе к помещению людей под стражу, физическим нападениям и даже убийствам.</h3>
Var b:array [1..255] of integer;
a, i, n:integer;
begin
readln(a);
i := 0;
while (a >= 1) do
begin
i := i + 1;
<span> b[i] := a mod 2;
</span><span> a := a div 2;
</span> end;
<span> n := i;
</span><span> for i := n downto 1 do </span><span>write(b[i]);
</span><span>end.
Проверено:)</span>
1)
цел a, b, c
алг
нач
ввод a,b,c
если mod(a+b,2)=0 то
вывод (a+b)/c
иначе
вывод (a+b)*c
все
кон
2)
цел a,d1,d2
алг
нач
ввод a
если (a>9) и (a<99) то
d1:=div(a,10);
d2:=mod(a,10);
вывод d1*d2
вывод' '
вывод d1+d2
вывод' '
вывод d1-d2
иначе
вывод 'ошибка'
все
кон