a = int(input("Введите сторону квадрата(целые числа): "))
print("S =", a*a)
2.Периметр квадрата(вещ. числа):
a = float(input("Введите сторону квадрата(вещественные числа): "))
print("P =", a*4)
3.Площадь треугольника:
a = int(input("Введите длину основания треугольника(целые числа):"))
h = int(input("Введите высоту треугольника(целые числа):"))
print("S =",a*h/2)
4.Периметр треугольника:
print("P =", int(input("Введите длину первой стороны треугольника(целые числа):")) + int(input("Введите длину второй стороны треугольника(целые числа):")) + int(input("Введите длину третьей стороны треугольника(целые числа):")))
5.Площадь круга:
Pi = 3
R = int(input("Введите радиус круга: "))
print("площадь круга примерно равна(Pi=3)", Pi*R*R)
6.Длина окружности:
Pi = 3,1415926535
R = float(input("Введите радиус круга: "))
print("длина окружности круга примерно равна", 2*Pi*R)
// PascalABC.NET 3.1, сборка 1219 от 16.04.2016 begin var a:=ArrRandom(40,-12,12).Where(x->abs(x)>=2).Take(20).ToArray; a.Sorted.Println; var sn:=abs(a.Where(x->x<0).Sum); var sp:=abs(a.Where(x->x>0).Sum); if sn>sp then Writeln('Модуль суммы отрицательных чисел больше') else if sn<sp then Writeln('Модуль суммы положительных чисел больше') else Writeln('Модули сумм положительных и отрицательных чисел равны') end.
1.Площадь квадрата(цел числа):
a = int(input("Введите сторону квадрата(целые числа): "))
print("S =", a*a)
2.Периметр квадрата(вещ. числа):
a = float(input("Введите сторону квадрата(вещественные числа): "))
print("P =", a*4)
3.Площадь треугольника:
a = int(input("Введите длину основания треугольника(целые числа):"))
h = int(input("Введите высоту треугольника(целые числа):"))
print("S =",a*h/2)
4.Периметр треугольника:
print("P =", int(input("Введите длину первой стороны треугольника(целые числа):")) + int(input("Введите длину второй стороны треугольника(целые числа):")) + int(input("Введите длину третьей стороны треугольника(целые числа):")))
5.Площадь круга:
Pi = 3
R = int(input("Введите радиус круга: "))
print("площадь круга примерно равна(Pi=3)", Pi*R*R)
6.Длина окружности:
Pi = 3,1415926535
R = float(input("Введите радиус круга: "))
print("длина окружности круга примерно равна", 2*Pi*R)
7. Имя:
name = input("Как тебя зовут? ")
print("Привет,", name,"!")
Объяснение:
begin
var a:=ArrRandom(40,-12,12).Where(x->abs(x)>=2).Take(20).ToArray;
a.Sorted.Println;
var sn:=abs(a.Where(x->x<0).Sum);
var sp:=abs(a.Where(x->x>0).Sum);
if sn>sp then Writeln('Модуль суммы отрицательных чисел больше')
else
if sn<sp then Writeln('Модуль суммы положительных чисел больше')
else Writeln('Модули сумм положительных и отрицательных чисел равны')
end.
Тестовое решение:
-12 -10 -7 -7 -4 3 4 5 5 5 6 6 6 8 9 9 10 10 11 11
Модуль суммы положительных чисел больше