Question

Йоу , ребята, помогите!!!
Задания для "pascal turbo"
нужно решить и расписать для программы

Answer 1

1.
var
f:integer;
const
x=3;
begin
f:=6*x*x+3*sqr((x*x+1));
writeln('Ответ: ',f);
readln;
end.

2.
var
y,z,b:real;
const
x=1; {Сюда пишешь значения в зависимости от требующихся вариантов.}
begin
write('Введите значения переменных y,z');
readln(y,z);
b:=1+abs(y-x)+((sqr(y-x)/2)+abs((y-x)*(y-x)*(y-x))/3);
writeln('Ответ: ',b);
readln;
end.

3.
var
a,b:integer;
begin
write('Введите числа: ');
readln(a,b);
writeln('Ответы: ',a+b,#10,a-b,#10,a*b);
readln;
end.

4.
var
s:real;
v,t,a:integer;
begin
Write('Введите значения переменных v,t,a: ');
readln(v,t,a);
s:=v*t+((a*sqr(t))/2);
writeln('Ответ: ',s);
readln;
end.