Помогите решить задачи

Question

Помогите решить задачи

---

Answer 1

Задача 5.2

var
  t,z:real;
begin
  Write('t='); Read(t);
  if t>2 then z:=16*t else z:=Abs(t*t-4);
  Writeln('z=',z)
end.

Задача 5.3

var
  x,y:real;
begin
  Write('x='); Read(x);
  if x>=5 then y:=Sqrt(x-5)
  else
    if x>=-20 then y:=Abs(x-15)
    else y:=x*x-400;
  Writeln('y=',y)
end.

Answer 2

Using System;using System.Collections.Generic;using System.Linq;using System.Text;using System.Threading.Tasks;namespace ConsoleApplication1{    class Program    {        static void Main(string[] args)        {            int a;            double z;            a = int.Parse(Console.ReadLine());            if (a > 2) {                 z = 16 * a;                Console.WriteLine("z= " + z);                Console.ReadKey();            }            else if (a <= 2) {                 z = Math.Abs(Math.Pow(a, 2) - 4);                Console.WriteLine("z= " + z);                Console.ReadKey();            }                    }    }}<br>

Comments

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
namespace ConsoleApplication1
{
class Program
{
static void Main(string[] args)
{
int a;
double z;
a = int.Parse(Console.ReadLine());
if (a > 2) {
z = 16 * a;
Console.WriteLine("z= " + z);
Console.ReadKey();
}
else if (a <= 2) { <br> z = Math.Abs(Math.Pow(a, 2) - 4);
Console.WriteLine("z= " + z);
Console.ReadKey();
}

}
}
}

---

вот это вот код смотри

---

эту можно конвертировать на любой язык

---

А где вторая? И еще: Вы на самом деле считаете, что человек, который просит решить такое простейшее задание, сможет понять Вашу писанину? или это так, покрасоваться? Если последнее, то у Вас не получилось.