Var N:longint;
Begin
Write('N = ');ReadLn(N);
While N <> 0 do
Begin
Write(N mod 10);
N:=N div 10;
End;
End.
n = input ()
for i in xrange (2, n+1):
k = 0 for j in xrange (2, i):
if i % j == 0:
k + 1 if k == 0:
print (i)
Var x,y:real;
begin
read(x,y);
if (x>0) and (y>0) then write('YES')
else write('NO')
end.
1.
700*400*32/8/1024=~1093 кбайт
880*600*32/8/1024=~2062 кбайт
1400*800*32/8/1024=~4375 кбайт
2200*1400*32/8/1024=~12031<span> кбайт
2. ((ln(8092)/ln(2))+округлить вбольшую до целого)*1200*1920/8/1024/1024=3.57 мбайт
3. (ln(32768)/ln(2)) / (ln(32)/ln(2)) = 32 бит пикс / 5 бит пикс = 6.4 раз
4. 1200 байт * 8 / (ln(64)/ln(2)) = 1600 точек.
5. 800*600*(ln(16)/ln(2)) бит пикс / 8 / 1024 = 234,375 кбайт будет занимать/весить. Достаточно.
6.
10 см ширина * (300/2.54) = 1181 пикс ширина
15 см высота * (300/2.54) = 1772 пикс высота
1181*1772*32 бит / 8 / 1024 / 1024 = 7.9 мбайт.</span>
Информатика- это знания получаемые вами в школе ; сведения которые вы черпаете из книг , телепередач ; новости которые вы слушите от других людей , радио
<em />