Program p1;
var sum,i,m:integer;
begin
writeln('Введите m: ');
readln(m);
sum:=0;
while i<m do
begin
i:=i+1;
sum:=sum+i;
end;
writeln('Сумма натуральных чисел =',sum);
end.<span>
</span>
Var x,y: real;
begin
write('задайте x и y ');
readln(x,y);
if (x>0) and (y>0) then
if ((x>3) and (x<6) and (y<Sqrt(36-x*x))) or
((x<3) and ((y>3-x) and (y<Sqrt(36-x*x)))) or
((y>3) and (y<6) and (x<Sqrt(36-y*y))) or
((y<3) and (((3-y)<x) and (x<Sqrt(36-y*y)))) then
writeln('точка лежит в области')
else
writeln('точка не лежит в области')
else writeln('координаты должны быть положительными');
<span>end.
</span>
1 байт = 8 бит
128 бит = 14 байт
1 Кбайт = 8192 бит
1.5 Кбайт = 12288 бит
2048 байт = 2 Кбайт
2 Мбайт = 2048 Кбайт
81920 бит = 10 Кбайт
1.5 Мбайт = 1572864 байт
Не благодари)))
555555555555555555555555(55
Копирования .... что ле??????