i=8 бит
V = 8*512*128 бит = 512*128 байт = 128/2 Кбайт = 64 Кбайт
Отв: 64 Кбайт
1.Если дракону сто лет или меньше, то у него 3N голов. Если ему больше ста лет, то у него 300+2(N-100) голов.
2.Высказывание: «Число A является положительным» на языке Pascal записывается как присваивание логической переменной f математического эквивалента (A > 0)
Var
N,A,P:integer;
Begin
P:=1;
Write('N = ');Read(N);
For N:= 1 to N do
Begin
Read(A);
if A > 0 then P:=P*A
End;
WriteLn(P);
End.
===== PascalABC.NET =====
begin
var b := MatrRandom(5, 5, -99, 99);
b.Println(4);
var n := b.RowCount;
Print('Главная:');
for var i := 0 to n - 1 do
Print(b[i,i]);
Writeln;
Print('Побочная:');
for var i := 0 to n - 1 do
Print(b[i, n - i - 1]);
end.
4.a)program l1;
vary,x:real;
BEGIN
write('Введите х: ');
readln(x);
y:=0;
if(x<0)then y:=sqr(x)-5
else if(x=0) then y:=3
else y:=x-3;
writeln('Y равен ',y)
END.
б)program l2;
vary,x:real;
BEGIN
write('Введите х: ');
readln(x); y:=0;
if(x<-1)then y:=abs(x)+2
else if(x=-1)then y:=1
else y:=x+1;
writeln('Y равен ',y)
END.
5.a)program l3;
var x,y:real;
BEGIN
writeln('Принадлежит ли точка М(x;y) к заштрихованной области ?'); write('Введите т.М(х;у):');
readln(x,y);
if((y<=1)and(y>=-3)and(x>=-2)and(x<5)) then writeln('Т.М(х;у) принадлежит заштрихованной области')
else writeln('Т.М(х;у) не принадлежит заштрихованной области')
END.
б)program l4;
var x,y:real;
BEGIN
writeln('Принадлежит ли точка М(x;y) к заштрихованной области ?'); write('Введите т.М(х;у):');
readln(x,y);
if((x>=0)and(y>=0)and(y<=(-(2/3))*x+2)) then writeln('Т.М(х;у) принадлежит заштрихованной области')
else writeln('Т.М(х;у) не принадлежит заштрихованной области')
END.
1) program l5;
var
i,x,sum:integer;
BEGIN
write('Введите двухзначное число: ');
readln(x);
x:=x+1;
sum:=0;
for i:=x to 99 do sum:=sum+x;
writeln('Сумма двухзначных чисел равно ',sum)
END.
