Question

Помогите, пожалуйста, написать программу на Паскале!!!! Срочно.Вариант 3

Answer 1

PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018
Внимание! Если программа не работает, обновите версию!

№1

begin
  Writeln(' a       b       x          z');
  foreach var a in 0.55.Step(0.55).TakeWhile(t->t<=5.5) do begin
    var b:=a<=2?a/2:2*a;
    var x:=a+0.3;
    var z:=a*Sin(x)+b*Cos(x);
    Writeln(a:4:2,b:8:2,x:8:2,z:12:6)
    end
end.

№2

begin
  var a:=new string[4]('   *','  * *',' *   *','*     *');
  (a+a[:4].Reverse).PrintLines
end.