1)
const n = 20;
var
a: array[1..n] of integer;
i, s: integer;
begin
for i := 1 to n do begin
a[i] := random(50);
write(a[i], ' ');
if(a[i] mod 7 = 0) then s := s + a[i];
end;
writeln;
writeln('Сумма эл., кратных 7: ', s);
end.
2)
const n = 8;
var
a: array[1..n] of integer;
i, s: integer;
begin
for i := 1 to n do begin
a[i] := random(50);
write(a[i], ' ');
if(a[i] mod 2 <> 0) then s := s + a[i];
end;
writeln;
writeln('Сумма нечетных эл: ', s);
end.
3)
const n = 10;
var
a: array[1..n] of integer;
i, s, count: integer;
begin
for i := 1 to n do begin
a[i] := random(50);
write(a[i], ' ');
if(i mod 2 = 0) then begin
s := s + a[i];
inc(count);
end;
end;
writeln;
writeln('Ср. арифметическое эл. с четными номерами: ', s / count);
end.
#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++, ООП
Var Ax,Ay,Ox,Oy,R:real;
Begin
WriteLn('Точка А:');
Write(' x = ');ReadLn(Ax);
Write(' y = ');ReadLn(Ay);
WriteLn('Центр окружности:');
Write(' x = ');ReadLn(Ox);
Write(' y = ');ReadLn(Oy);
Write('Радиус окружности: ');ReadLn(R);
if sqr(Ax-Ox)+Sqr(Ay-Oy) < R*R then WriteLn('Точка лежит внутри окружности')
else if sqr(Ax-Ox)+Sqr(Ay-Oy) = R*R then WriteLn('Точка лежит на окружности')
else WriteLn('Точка находится вне окружности')
End.
Var
Ax,Ay,Bx,By,Cx,Cy,AB,BC,CA:real;
Begin
WriteLn('Координаты первой вершины');
Write(' x = ');ReadLn(Ax);
Write(' y = ');ReadLn(Ay);
WriteLn('Координаты второй вершины');
Write(' x = ');ReadLn(Bx);
Write(' y = ');ReadLn(By);
WriteLn('Координаты третьей вершины');
Write(' x = ');ReadLn(Cx);
Write(' y = ');ReadLn(Cy);
AB:=Sqr(Ax-Bx)+Sqr(Ay-By);
BC:=Sqr(Bx-Cx)+Sqr(By-Cy);
CA:=Sqr(Cx-Ax)+Sqr(Cy-Ay);
if (AB+BC=CA)or(BC+CA=AB)or(CA+AB=BC) then WriteLn('Треугольник - прямоугольный')
else WriteLn('Данный треугольник не является прямоугольным')
End.
Var n, i, a, sum: Integer;
Begin
sum := 0;
readln(n);
for i := 1 to n do begin
read(a);
if a mod 5=0 then sum := sum + a;
end;
writeln(sum);
End.
НОД будем находить при помощи Эвклидового алгоритма, а НОК - по формуле:
.
program nod_nok;
var
a, b, g: integer;
l: real;
function Gcd(a, b: integer): integer;
var
t: integer;
begin
while b <> 0 do
begin
t := b;
b := a mod b;
a := t;
end;
Gcd := a;
end;
function Lcm(a, b, gcd: integer): real;
begin
Lcm := Abs( a * b ) / gcd;
end;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
g := Gcd(a, b);
writeln('НОД: ', g);
l := Lcm(a, b, g);
writeln('НОК: ', l:1:0);
end.
