Для хранения цвета одной точки изображения с 32 <span>градациями серого цвета требуется log(2)32 = 5 бит. Объем файла = 800*600*5 бит = 800*600*5/8 байт = 100*600*5/1024 Кбайт </span>≈ 293 Кбайт
Var a,b,n:integer;
begin
writeln('n=');
readln(n);
<span>a:=n mod 10;
b:=n div 10;
if (a= 4) or (b=4) or (a=7) or (b=7) then writeln('yes')
else
writeln('no');
readln;
end.
__________________________
</span>var a,b,n:integer;
begin
writeln('n=');
readln(n);
a:=n mod 10;
b:=n div 10;
if (a= 3) or (b=3) or (a=6) or (b=6) or (a=9) or (b=9)
then writeln('yes')
else
writeln('no');
readln;
end.
Program n1;
var i,s,n: longint;
begin
s:=0;
readln(n);
for i:=1 to n do s:=s+sqr(i*2);
writeln(s);
end.