Расстояние от точки до начала координат находится как длина гипотенузы прямоугольного треугольника, катетами которого являются координаты точки. Поскольку нам нужны не сами расстояния, а лишь сравнить их, то можно сравнивать квадраты, чтобы не извлекать корня.
// PascalABC.NET 3.0, сборка 1088
var
x1,x2,y1,y2,r1,r2:real;
begin
Write('Введите координаты первой точки: '); Read(x1,y1);
Write('Введите координаты второй точки: '); Read(x2,y2);
r1:=sqr(x1)+sqr(y1); r2:=sqr(x2)+sqr(y2);
if r1>r2 then Writeln('Ближе вторая точка')
else
if r1<r2 then Writeln('Ближе первая точка')
else Writeln('Точки равноудалены')
end.
<em><u>Тестовое решение:</u></em>Введите координаты первой точки: 16.3 -11.7
Введите координаты второй точки: 15.8 12
Ближе вторая точка
26*10*10 - 26 = 2574
пояснение:
26*10*10 - количество вариантов без условия "одновременно не равных 5)
тк на первом месте может стоять любая из 26 букв, на втором любая из 10 цифр, на третьем аналогично
далее вычитаем 26 вариантов: каждый вариант соответствует одной из 26 букв, когда две цифры равны 5
// проверялось в PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
var
x, y: real;
begin
x := 1;
y := x * x * x - 3 * exp(x) + 8;
Println('При x =', x);
Println('y = x³ - 3eˣ + 8 =', y);
end.
Примечание: в строке, выводящей на экран значение игрек, использованы символы Юникода.
Если они не поддерживаются в вашей версии Паскаля, можно оставить в строке только Println('y =', y);
Price_one = float(input())
for i in range(1,11):
print('{0:.3f} кг. стоит - {1:.2f}'.format(i/10,price_one*(i/10)))
Пример:
<span>0.100 кг. стоит - 2.55
0.200 кг. стоит - 5.10
0.300 кг. стоит - 7.65
0.400 кг. стоит - 10.20
0.500 кг. стоит - 12.75
0.600 кг. стоит - 15.30
0.700 кг. стоит - 17.85
0.800 кг. стоит - 20.40
0.900 кг. стоит - 22.95
1.000 кг. стоит - 25.50</span>
1.
#include <iostream>
using namespace std;
int main(){
int n, p;
cin >> n;
int a[n];
for(int i = 0; i!=n; i++)
cin >> a[i];
for(int i = 0; i!=n; i++)
cout << a[i] << " ";
cout << endl << "Введите число k ";
cin >> p;
for(int i = 0; i!=n; i++)
if(a[i]>p)
cout << a[i];
return 0;
}
2.
#include <iostream>
using namespace std;
int main(){
int n, sum = 0;
cin >> n;
int a[n];
for(int i = 0; i!=n ;i++){
cin >> a[i];
sum = sum + a[i];
}
for(int i = 0; i!=n ;i++)
cout << a[i] << " ";
cout << endl << sum;
return 0;
}