Держи.делайте отступы,с отступами код более понятнее
Program z1;
uses crt;
var i:integer;
begin
for i:=1 to 10 do
if (i mod 2=0) then
writeln(i);
<span>end.</span>
31=11111; 3=11; 5=101; 9 =1001; 17 =<span>10001; 32=<span>100000 64=<span>1000000 128=10000000</span></span></span>
Структура таблицы - в прилагаемом файле.
Формула для ячеек столбца D:
=ЕСЛИ(C2<=200;0,9*C2;0,9*200+1,2*(C2-200))
1,4 слайд установить переключение по щелчку
2,3 установить переключение по времени и задать время в секундах