Var
A:real;
Begin
Write('Введите число: ');ReadLn(A);
if (-72<=A)and(A<=14) then WriteLn('Принадлежит')
else WriteLn('Не принадлежит')
End.
#include
#include
using namespace std;
struct point
{
int x;
int y;
};
int foo(point a, point b)
{
return sqrt(pow(a.x-b.x,2)+pow(a.y-b.y,2))
}
int main()
{
int a1,a2,a3;
point b[3];
for(int i = 0; i < n; i++)
cin >> b[i].x >> b[i].y;
a1 = foo(b[0],b[1]);
a2 = foo(b[0),b[2];
a3 = foo(b[1],b[2]);
if(a1==a2 && a2==a3)
{
cout << "Равносторонний";
return 0; }
if((a1==a2 && a2 != a3) || (a2==a3 && a2!=a1) || (a1==a3 && a1!=a2))
{
cout << "Равнобедренный";
return 0;}
int m = max(max(a1,a2),max(a2,a3));
int m2 = min(min(a1,a2),min(a2,a3));
int m3 = (a1+a2+a3)-(m1+m2);
if(pow(m,2==pow(m2,2)+pow(m3,2)
{
cout << "Прямоугольный";
return 0;
}
cout << "Обычный";
}
Var a,b,c,x :integer;
function NOD(a,b:integer):integer;
begin
while a<>b do
if a>b then
a:=a-b
else b:=b-a;
Result:=a;
end;
begin
write('Введите a,b,c: ');
readln(a,b,c);
x:=NOD(NOD(a,b),c);
writeln('НОД=',x)
<span>end.</span>
5.5 8.8 9.8 11.6 12.7 11.7 11.2 9.3 10.3 10.4 7.4 7.2 5.2 5.3 6.3 6.9 7.8 2.8 2.9 3.9 3.6 4.5 А вот как переводить: с конца над числом в двоичной системе пишешь: 1,2,4,8... и.т.д если единичка есть-прибавляешь это число. если единички нет-ничего не прибавляешь.
Var x,s:integer;
begin
readln(x);readln(s);
while x<>5 do begin
s:=x;
x:=x+1;
s:=s+x;
end;
writeln(s);writeln(x);
end.
Если будут неправильно то попросите меня исправить