uses crt;
var
a:array [1..9] of integer;
i,c,m,n:integer;
b:real;
begin
clrscr;
randomize();
c:=1;
for i:=1 to 9 do
begin
if i=c then
begin
a[i]:=i+3;
c:=c+3;
end
else
begin
if i mod 3=0 then a[i]:=a[i-1]+a[i-2] else a[i]:=sqr(i-1);
end;
write(a[i],' ');
end;
readln();
end.
uses crt;
var x,y,s,i,j:integer;
a: array [1..15] of integer;
begin
clrscr;
randomize();
writeln('Vvedite chislo');
readln(x);
writeln('Ishodniy');
for i:=1 to 15 do
begin
a[i]:=random(100);
write(a[i],' ');
end;
writeln;
writeln;
writeln('Ispravlenniy');
for i:=1 to 15 do
begin
if a[i]+i<x then
begin
a[i]:=(a[i]+i)*2;
s:=s+a[i];
textcolor(red);
write(a[i],' ');
end else
begin
textcolor(white);
a[i]:=(a[i]+i);
write(a[i],' ')
end;
end;
writeln;
textcolor(green);
writeln('Summa =',s);
readln;
end.
#include <iostream>
#include <cmath>
using namespace std;
int main()
{
double x1, y1, x2, y2, x3, y3, a, b, c;
cout << 'Введите координаты точек треугольника: ';
cin >> x1;
cin >> y1;
cin >> x2;
cin >> y2;
cin >> x3;
cin >> y3;
a = sqrt(pow((x2 - x1), 2) + pow((y2 - y1), 2));
b = sqrt(pow((x3 - x2), 2) + pow((y3 - y2), 2));
c = sqrt(pow((x1 - x3), 2) + pow((y1 - y3), 2));
if (a = b = c) {
cout << "Данный треугольник - равносторонний\n";
}
else if (a == b || b == c || a == c ) {
cout << "Данный треугольник - равнобедренный\n";
}
else if (a != b && b != c && a != c) {
cout << "Данный треугольник - разносторонний\n";
}
if (c > a && c > b) {
if (c*c == a*a + b*b) {
cout << "Данный треугольник - прямоугольный";
}
else if (c*c < a*a + b*b) {
cout << "Данный треугольник - остроугольный";
}
else {
cout << "Данный треугольник - тупоугольный";
}
}
else if (a > b && a > c) {
if (a*a == b*b + c*c) {
cout << "Данный треугольник - прямоугольный";
}
else if (a*a < b*b + c*c) {
cout << "Данный треугольник - остроугольный";
}
else {
cout << "Данный треугольник - тупоугольный";
}
}
else {
if (b*b == a*a + c*c) {
cout << "Данный треугольник - прямоугольный";
}
else if (b*b < a*a + c*c) {
cout << "Данный треугольник - остроугольный";
}
else {
cout << "Данный треугольник - тупоугольный";
}
}
}