Question

С ПОМОЩЬЮ ПАСКАЛЯ!
1. Задано число x. Найдите s, если:
s = cos x - sin x + |x-7| + x2 - 1
2.Даны два действительные числа.
Найти среднее арифметическое этих
чисел.
3. Задано x.
Вычислить у:

Answer 1

1)
var x,s:real;
begin
readln(x);
s:=cos(x) - sin(x) + abs(x-7) + x*x - 1;
writeln (s)
end.

2)
var x,y,s:real;
begin
readln(x,y);
s:=(x+y)/2;
writeln(s)
end.

3)
var x,y:real;
begin
readln(x);
if x<0 then y:=x*x-5;
if x=0 then y:=3;
if x>0 then y:=x-3;
writeln(y)
end.

Answer 2

Пока первый, потом дополню

Answer 3

Закончил. Там сначала кое-где лишние пробелы были, удалил. Но если ПаскальАВС, то это роли не играет.