1.
import math
b = int(input())
a = 1 / 9 * math.pow(b, 3) - 6.4 * (b + 8) + 3 / 4 * b
print(a)
2.
import math
b = int(input())
a = int(input())
d = 1 / 7 * math.pow(a, 3) * b - 2 * a * pow(b, 2) * (a + b)
print(d)
3.
import math
b = int(input())
a = int(input())
q = 8 * math.pow(a, 3) - 2 * a * b + math.pow(b, 2) / (2 * a * (3 * a - b))
print(q)
4.
import math
x = int(input())
y = int(input())
k = math.pow(x, 3) - 4 * x * y * (x + math.pow(y, 2))
print(k)
5.
import math
v = int(input())
h = abs(v + 1.7) * (2 * v + 3)
print(h)
Объяснение:
Тут во всех примерах будут разные переменные, то есть ответ из примера 1 не идет в переменную a в примере 2
// Pascal ABC.NET
type
Train = class
private
ПунктНазначения: string;
НомерПоезда: string;
ВремяOтправления: string;
Информация: string;
static function ЧастьНомера(s: string) := s.MatchValue('\d*').ToInteger;
public
constructor (ПН, НП, ВО: string; И: string := '');
begin
ПунктНазначения := ПН;
НомерПоезда := НП;
ВремяOтправления := ВО;
Информация := И
end;
static procedure УпорядочитьПункты(var a: array of Train) :=
a := a.OrderBy(p -> p.ПунктНазначения)
.ThenBy(p -> p.ВремяOтправления).ToArray;
static procedure УпорядочитьНомера(var a: array of Train) :=
a := a.OrderBy(p -> ЧастьНомера(p.НомерПоезда)).ToArray;
function ToString: string; override :=
$'{ПунктНазначения,-20} {НомерПоезда,-5} {ВремяOтправления,7}' +
$' {Информация}';
end;
function ДобавитьИнформацию(Self: array of Train;
НомерПоезда, Информация: string): boolean; extensionmethod;
begin
Result := True;
var i := Self.FindIndex(p -> p.НомерПоезда = НомерПоезда);
if i >= 0 then
Self[i].Информация := Информация
else
Result := False
end;
begin
var a := new Train[5];
a[0] := new Train('Адлер','4c','15:40');
a[1] := new Train('Санкт-Петербург','132п','07:19');
a[2] := new Train('Казань','8ф','12:35');
a[3] := new Train('Новосибирск','217п','18:05');
a[4] := new Train('Адлер','18c','08:32');
Train.УпорядочитьНомера(a);
a.PrintLines;
var np := ReadlnString('Номер поезда:');
var info := ReadlnString('Добавочная информация:');
if not a.ДобавитьИнформацию(np, info) then
Println('Не найден номер поезда');
Train.УпорядочитьПункты(a);
a.PrintLines
end.
