I=32*1000 бит/c*15c=480000 бит
I=страницы*48*8бит=480000бит
отсюда страницы= 480000/(48*8)=1250
Итого: 1250 страниц
Var j, min: integer;
a: array [1..30] of integer;
begin
min:= 1001;
for j:=1 to 30 do
if (a[j]mod 10=3) and (a[j]min:= a[j]);
if min:= 1001
then writeln('Не найдено')
else writeln(min);
end.
<span>
program abc;
uses crt;
var a,b,x,y,h:integer;
begin
h:=</span><span>п/2;
a:=0;
b:=3*п;
x:=a;
y:=0;
{</span>цикл с предусловием:}
while x<=b do
y:=0.5*x+sin^2(x);<span>
write(x,y);
x:=x+h;
{</span>цикл с постусловием:}
repeat
y:=0.5*x+sin^2(x);
write(x,y);
x:=x+h;
until x>(b+h);
end.
Begin
var n := 3;
var s = n;
repeat
n := n + 4;
s := s + n
until n >= 87;
WriteLn(s);
end.
Если Миша дед Сергея а Гриша приятель Миши а Коля друг Сергея то внук Миши это Сергей