по питону написать код: Вычислить сумму четных чисел в интервале от –70 до +20. Выполнить пошаговую компиляцию (трассировку) программы. Решить 3-мя : оператор цикла for; оператор цикла do..while; оператор цикла while.

Задание 1.
1) Разрешение 80 dpi показывает, что на каждый дюйм изображения приходится 80 точек. Следовательно, размеры изображения в дюймах составят 320/80 × 640/80 = 4х8 дюймов.
2) Общее количество пикселей составит 320×640 = 204800. Для хранения одного пикселя в палитре из 256=2⁸ цветов потребуется 8 бит = 1 байт. Тогда для хранения всего изображения потребуется 204800×1 = 204800 байт = 204800/1024 = 200 Кбайт

Задание 2.
Высказывание совершенно правильное. Чем больше точек будет содержать каждый дюйм (или сантиметр, миллиметр..) изображения, тем оно будет более подробным, т.е. качественнее.
Разница между «качеством изображения» и «качеством отображения изображения на экране монитора» может быть, а может и не быть - все зависит от того, в какой ситуации рассматривается эта фраза. Если мы говорим любую из этих фраз, оценивая картинку на мониторе, то разницы нет, потому что мы описываем то, что видим. Если же мы под «качеством изображения» имеем в виду разрешение того или иного отображения картинки, т.е. количество дюймов (сантиметров, миллиметров...) которые устройство может отображать, то для монитора оно не превышает 92 dpi, а для принтера составляет минимум 300 dpi, т.е. при одинаковом размере изображения качество напечатанной на принтере картинки более чем втрое выше, чем её отображение на мониторе.

1)

var
a: array[1..20] of integer;
i, j, k: integer;

begin
for i := 1 to 10 do
begin
a[i] := random(71) - 40;
write(a[i]:4);
end;
writeln;
writeln('удалили элементы из одинаковых цифр включая однозначные');
i := 1;
k := 10;
while i <= k do
begin
if (abs(a[i]) < 10) or ((a[i] mod 10) = (a[i] div 10)) then
begin
if i = k then k := k - 1
else
begin
for j := i to k - 1 do a[j] := a[j + 1];
k := k - 1;
end;
end
else
i := i + 1;
end;
for i := 1 to k do
write(a[i]:4);
end.

2)

var
a: array[1..20] of integer;
i, j, k,n: integer;

begin
for i := 1 to 10 do
begin
a[i] := random(71) - 40;
write(a[i]:4);
end;
writeln;
writeln('введите k(не должно содержать 1)=');
readln(k);
writeln('вставляем k перед всеми элементами где есть цифра 1');
i := 1;
n := 10;
while i <= n do
begin
if (abs(a[i]) mod 10=1) or (abs(a[i]) div 10=1) then
begin
for j:=n+1 downto i+1 do a[j]:=a[j-1];
a[i]:=k;
n:=n+1;
i:=i+1;
end;
i := i + 1;
end;
for i := 1 to n do
write(a[i]:4);
end.

3)

var
a: array[1..10] of integer;
i, j, k: integer;

begin
for i := 1 to 10 do
begin
a[i] := random(71) - 40;
write(a[i]:4);
end;
writeln;
writeln('меняем местами три первых и три последних элемента');
for i:=1 to 3 do
begin
k:=a[i];
a[i]:=a[i+7];
a[i+7]:=k;
end;
for i := 1 to 10 do
write(a[i]:4);
end.