1) 40*60= 2400 символов
т.к. один символ это 8 бит, то страница весит 2400*8= 19200 бит
Переведем в Кбайт, 19200/8/1024= 2,34 Кб
В оперативной памяти всего 16 Кбайт, а страница весит 2,34 Кбайт, значит в оперативной памяти поместиться 16/2,34 = 6,8
Примерно около 6 страниц
<span>m = 13;
n = 21;
n = 2*m-n = 2*13-21 = 26-21 = 5;
m< =n = 13 <= 5 = false </span>⇒<span> p = 4-m*n = 4-13*5 = -61
var n,m,p:integer;
begin
m:=13;
n:=21;
n:=2*m-n;
if m<=n then
p:=m+n
else
p:=4-m*n;
writeln(p);
end.
Результат:
-61</span>
1)книга,текст в компьютере,учебник,картина,журнал,газета,таблица,электронная доска,файл,атласы,карты.
Var a: array[1..10] of integer;
var i, j, ans:integer;
begin
ans:=0;
for i:=1 to 10 do
begin readln(a[i]);
end;
for i:=1 to 10 do
begin
for j:=i+1 to 10 do
begin
if a[i]=a[j] then ans:=ans+1;
end;
end;
if ans>0 then writeln('есть')
else writeln('нет');
end.<span> </span>
<em>var n:longint;</em>
<em> f:boolean;</em>
<em>begin</em>
<em> write ('N = ');</em>
<em> readln (n);</em>
<em> f:=false;</em>
<em> while (n<>0) do</em>
<em> begin</em>
<em> if (n mod 10)=7 then </em>
<em> begin</em>
<em> f:=true;</em>
<em> break;</em>
<em> end;</em>
<em> n:=n div 10;</em>
<em> end;</em>
<em> if f then writeln ('YES') else writeln ('NO');</em>
<em>end.</em>
