1) 10*2^13/128*64 (найдем сколько бит в одном пикселе)
2)10*2^13/2^13= 10 бит/1писк, т.е. i=10
3)N=2^10=1024
Ответ 1024
1.
var i,k:integer;
begin
for i:=150 to 225 do
if i mod 7=0 then k:=k+1;
write(k)
end.
2.
var a,s:integer;
begin
read(a);
while a>0 do
begin
s:=s+a mod 10;
a:=a div 10
end;
if s mod 10=0 then write('Правда') else write ('Неправда')
end.
Если надо найти палиндром,идущий за числом N. То вот программа:
(5>30) v ( !(even(5) & (5<10) )
0 v ( 1 & 1) = 1
Истина
(8>30) v ( !(even(8) & (8<10) )
0 v ( 0 & 1 ) = 0
Ложь
(27>30) v ( !(even(27) & (27<10) )
0 v ( 1 & 0 ) = 0
Ложь
(42>30) v ( !(even(42) & (42<10) )
1 v ( 0 & 0 ) = 1
Истина