Question

1) Составьте программу для вычисление значения выраженияx=y^10+y^20+y^302)Составьте программу содержащая в себе процедуру для вычисления перимитра прямоугольника ab. В основной программе необходимо примененить эту процедуру к 3различным прямоугольниками со сторлнами xy, nm, cd

Answer 1

PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018

Внимание! Если программа не работает, обновите версию!

1)

begin

 var y := ReadReal;

 var z := y ** 10;

 var x := z * (1 + z + Sqr(z));

 x.Println;

end.

Пример

1.543

453619.091174671

2)

procedure Per(a, b: real; var p: real);

begin

 p := a * b

end;

begin

 var (x, y) := ReadReal2;

 var Периметр: real;

 Per(x, y, Периметр);

 Периметр.Println;

 var (n, m) := ReadReal2;

 Per(n, m, Периметр);

 Периметр.Println;

 var (c, d) := ReadReal2;

 Per(c, d, Периметр);

 Периметр.Println

end.

Пример

6 13

78

3.5 8.032

28.112

14 23.002

322.028