В мире новых технологий
Информатика предмет
Жизненно необходимый.
В нем для нас секретов нет.
===== PascalABC.NET =====
-1-
begin
var a := new integer[9];
for var i := 0 to 2 do
begin
a[3 * i] := ReadInteger('Введи элемент ' + (3 * i + 1).ToString);
a[3 * i + 1] := 6 * i + 4;
a[3 * i + 2] := Random(0, 9)
end;
a.Println
end.
-2-
begin
var a := ArrRandom(15, -99, 99);
a.Println;
var b := a.Select(p -> p * p).ToArray;
b.Println;
Println('Разность', a.Max - b.Min)
end.
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.
1) 361*2=722<=<=7
Ответ: *2<=<=
2) 497<=49*2=98*2=196*2=392*2=784<=<=7*2=14
Ответ: <=*2*2*2*2<=<=
3)167*2*2*2*2*2=5344<=<=<=5*2=10
Ответ: *2*2*2*2*2<=<=<=*2