Ошибка в написании формулы, в зависимости от того, что ты делала
Var
i,k:integer;
a:array[1..10]of integer;
begin
write('Массив: ');
for i:=1 to 10 do
begin
a[i]:=random(-10,10);
write(a[i],' ');
end;
writeln;
for i:=1 to 9 do
begin
if a[i]*a[i+1]<0 then k:=k+1
end;
writeln('Число перемен знака: ',k)
<span>end.</span>
Использовать Чертежник
алг
нач
сместиться на вектор (5,8)
опустить перо
сместиться на вектор (0,1)
сместиться на вектор (-5,0)
сместиться на вектор (0,-9)
сместиться на вектор (4,0)
сместиться на вектор (1,1)
сместиться на вектор (0,3.5)
сместиться на вектор (-1,1)
сместиться на вектор (-4,0)
поднять перо
кон
1 байт = 8 бит, значит 1 символ занимает 1 байт
8 станиц * 40 строк * 48 символов = 15360 байт.
Условие попадания точки в полукруг можно записать в виде
#include <iostream>
using namespace std;
int main(){
float x,y,R;
cout<<"Vvedite a,b,R\n";
cin>>x>>y>>R;
if (x>=0 && x*x+y*y<=R*R)
cout<<"\nPopadaet\n";
else
cout<<"\nNe popadaet\n";
}
Тестовое решение:
Vvedite a,b,R
3
5
7
Popadaet
--------------------------------
Process exited after 15.45 seconds with return value 0
Для продолжения нажмите любую клавишу . . .
Vvedite a,b,R
4
-2
3
Ne popadaet
--------------------------------
Process exited after 27.79 seconds with return value 0
Для продолжения нажмите любую клавишу . . .