1. Даны две переменные целого типа: A и B. Если их значения не равны....

[Alexspirit]

1. Даны две переменные целого типа: A и B. Если их значения не равны, то присвоить каждой переменной сумму этих значений, а если равны, то присвоить переменным нулевые значения. Вывести новые значения переменных A и B.

2. Для данного вещественного x найти значение следующей функции f, принимающей вещественные значения:

f (x) = 2•sin(x), если x > 0,

6 − x, если x ≤ 0.



нужна срочно лаба знакомому, я бы сам сделал но в данный момент нахожусь в состоянии алькогольного опьянения, прошу у вас помощи xD


ребят помогите плз ))))) задача не сложная, просто мозг отказывается работать, а работу надо сдать в 8 утра ((

паскаль

код скиньте сюда плз кому не лень, понимаю что в наглую такое пишу, но надо помочь ((

[Hacker19_90]

пфффффф!

но надо помочь

мне тоже много чего надо!

1. Даны две переменные целого типа: A и B. Если их значения не равны, то присвоить каждой переменной сумму этих значений, а если равны, то присвоить переменным нулевые значения. Вывести новые значения переменных A и B.

if a <> b then
begin
    a := a + b;
    b := a;
end
else 
begin
    a := 0;
    b := a;
end;

2. Для данного вещественного x найти значение следующей функции f, принимающей вещественные значения:

f (x) = 2•sin(x), если x > 0,

6 − x, если x ≤ 0.

Readln (x);
if x > 0 then f := 2*sin(x)
else f := (6.0 - x);

[Alexspirit]

Hacker19_90 биг спс, выручил, должен был помоч парню но не в состоянии, жил бы ты со мной рядом проставился бы на данный момент да и кольянчегом угостил бы, спасиб большое)))

[Hacker19_90]

проставился бы на данный момент да и кольянчегом угостил бы

ЭХХХ!