#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 << "Обычный";
}
program zadacha;
var x,y:integer;
begin
write('Значение x=');
readln(x);
if x>0 then
y:=2*x-5
else
if x=0 then
y:=0
else
if x<0 then
y:=3*x-1;
writeln('Значение функции y=',y);
end.
Var a1,a2:integer;
begin
readln(a1);
readln(a2);
a1:=a1*a1*a1;
a2:=a2*a2*a2;
if a1>a2 then writeln(a1) else
writeln(a2);
end.
<span>import java.util.*;
import java.lang.*;
import java.io.*;
import java.util.Scanner;
class Ideone {
public static void main (String[] args) throws java.lang.Exception {
System.out.println("Введите расстояние в метрах: ");
Scanner sc = new Scanner(System.in);
int m = sc.nextInt();
int sm = m * 100;
int dm = m * 10;
System.out.print(sm + " " + dm);
}
}</span>
1) Если использовать последний Паскаль АВС, который умеет вычислять степень (Power), то вот вариант программы:
var
n:integer;
s:real; {вообще, он целый, но мой компилятор не пропускает, почему-то считает, что результат вычислений будет real}
begins:=0;
n:=1;
while s<5 do
begin
s:=3*power(n,4)-730*n; {для старого Паскаля напиши так: s:=3*sqr(sqr(n))-730*n}
n:=n+1
end;
writeln(n)
end.
2)
var n,s:real;
begin
s:=0;
n:=1;
while s<=10 do
begin
s:=exp(n)-1000*Ln(n);
n:=n+1
end;
writeln(n)
<span>end.</span>