Var
n,k,sum:integer; s,s1:string;
begin
write('n = '); readln(n);
s:='';
sum:=0;
while (n>0)and(n mod 2 = 0) do
begin
k:=n mod 10;
str(k,s1);
s:=s1+'+'+s;
sum:=sum+k;
n:=n div 10;
end;
if s<>'' then s[length(s)]:='=';
writeln(s,sum);
end.
Пример:
n = 1784
8+4=12
Var a:array[1..10] of integer; i:integer;
begin
for i:=1 to 10 do read(a[i]);
writeln('Разность=',a[9]-a[3]);
end.
128*128/8/1024 (доводим до килобайт) = 2;
8 кб / 2 = 4 бит на пиксель;
2^4 = 16 цветов.
Ответ:Ахах, мы что должны по рисунку определять, какие он там команды удалил? Код программы скинь
Объяснение: