LET X = 0.2BEGINFOR Z = 1 TO Z = 3Z = Z+1y=1,5*a*xcos(x)X=X+0.2
END
1. 2^i=128
i=7
2. N=256 2^i=256 i=8 бит/1 пиксель (8*124*124)/2^13=15.06. Если нужно целое число, то 16.
3. 2*22*1000*8*124/2^23=15.6
4. 124 = 7C(16) = 1111100(2)
прямой код обратный дополнительный
01111100 10000011 10000011+1=10000100
А) div - деление без остатка; mod - остаток от деления. 2+1=3
Var n,i,a,s,f:integer;
begin
write('n = ');
readln(n);
s:=0; f:=0;
for i:=1 to n do
begin
readln(a);
if abs(a) mod 10 = 7
then begin s:=s+a; f:=1; end;
end;
if f=1
then writeln('Сумма нечетных чисел, оканчивающихся на 7 = ',s)
else writeln('среди введенных чисел нет нечетных, оканчивающихся на 7');
end.
Пример:
<span>n = 5
25
-17
71
68
27
Сумма нечетных чисел, оканчивающихся на 7 = 10</span>
Начало
повтори 4 раза
пока справа стена
повтори шаг вперед
конец цикла
закрась клетку
поверни напрво 90
конец