Нужно написать программу,Помогите пожалуйста ​

Question

Нужно написать программу,Помогите пожалуйста ​

---

Comments

Тебе надо программу только для номера 1?

---

и 2

---

Программа на каком языке должна быть?

---

program test; // Название программы testvark,t:real; // переменныеbegin // Начало кодаWriteLn('Введите значение t'); // Выводим текстReadLn(t); // Считываем значение в переменнуюif t>0 then k:= sqr(t)+7*t; // sqrt корень.if t=0 then k:=3;if t<0 then k:= sqrt(-t);WriteLn(k);end.

---

жаль 2 выводит с лишними знаками.

Answer 1

Пишу на языке PASCAL.

№1

program name1; // Название программы name1

var a: integer; // Объявляем переменные

begin

WriteLn('Введите число: ');

  ReadLn(a);

if a>0 then writeln('Число положительное');

if a=0 then writeln('Число равно 0')

 else writeln('Число отрицательное');

end.

Comments

Номер 2.

---

program test; // Название программы testvark,t:real; // переменныеbegin // Начало кодаWriteLn('Введите значение t'); // Выводим текстReadLn(t); // Считываем значение в переменнуюif t>0 then k:= sqr(t)+7*t; // sqrt корень.if t=0 then k:=3;if t<0 then k:= sqrt(-t);WriteLn(k);end.