<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var im:=a.IndexMax;
Writeln('Номер максимального элемента- ',im+1,', значение ',a[im]);
end.
<u>Пример</u>
n= 13
11 -13 -11 46 24 -10 34 -22 -8 -1 31 -34 -4
Номер максимального элемента- 4, значение 46
1)64/4=16 (к.)-могло быть
2)64-16=48(г.)-могло быть
Ответ:48 г.,16 к.
1)64/2=32(г.)-могло быть
2)64-32(к.)-могло быть
Отвеет:32 к.,32 г.
#include <iostream>
#include <math.h>
using namespace std;
class Vertice {
public:
double x, y;
friend istream &operator>>(istream &is, Vertice &v) {
is >> v.x >> v.y ;
}
double distance(Vertice &w);
};
double Vertice::distance(Vertice &w) {
return sqrt( pow(this->x-w.x,2) + pow(this->y-w.y,2));
}
class Triangle {
public:
Vertice a, b, c;
Triangle(Vertice v, Vertice w, Vertice u);
double Square();
double Perimetr();
};
Triangle::Triangle(Vertice v, Vertice w, Vertice u) {
this->a = v, this->b = w, this->c = u;
}
double Triangle::Perimetr() {
return this->a.distance(this->b) + this->a.distance(this->c) + this->b.distance(this->c);
}
double Triangle::Square() {
double a = this->a.distance(this->b), b = this->b.distance(this->c), c = this->a.distance(this->c),
p = (a+b+c)/2;
return sqrt(p*(p-a)*(p-b)*(p-c));
}
int main() {
Vertice a, b , c;
cin >> a >> b >> c;
Triangle t(a,b,c);
cout << t.Perimetr() << endl << t.Square() << endl;
}
//язык c++, ООП
По идее ок)
program prim;
var a:array [1..3] of integer;
i:integer;
c:integer;
begin
write('Введите 3 числа: ');
for i:=1 to 3 do
readln(a[i]);
for i:=1 to 3 do
if a[i] > c then c:=a[i];
if (c mod 3=0) then
writeln(c, ' кратно 3')
else
writeln(c, ' не кратно 3');
end.
