Const
n=10000;
var
a:array[1..n]of integer;
i,n1, flag:integer;
begin
readln(n1);
for i:=1 to n1 do
read(a[i]);
for i:=1 to n1-1 do
if ((a[i]<0)and(a[i+1]<0))or
((a[i]>0)and(a[i+1]>0))then
flag:=1;
if flag=1 then
writeln('YES')
else
writeln('NO');
end.
Program g;
var a,b,c,i:integer;
begin
writeln('Введите количество чисел');
readln(a);
c:=1;
writeln('Введите ', a, ' чисел(а)');
for i:=1 to a do
begin
readln(b);
c:=c*b;
end;
writeln('Произведение чисел=',c);
readln;
<span>end.
Program g;
var a,b,c:integer;
begin
writeln('Введите 2 числа');
readln(a,b);
if (a+b)>0 then
c:=(a*a)+(b*b)
else
c:=(a+b)*(a+b);
writeln('Результат=',c);
readln;
<span>end.
</span>
Третье задание не понял.</span>
40.64×1200×40.64×1200×16=38053085184 бит
Делим на 8 получаем в байтах
4756635648 байт
dpi - dot per inch (точек на дюйм)
Var
K:real;
Begin
Write('K = ');
Read(K);
if K<0 then Write('x = ',K*K)
else Write('x = ',K*K*K)
End.
вот, я так думаю что это сообщение об ОС надеюсь прокатит...