1. даны три целых числа а, в, с. найти их сумму, произведение, а также разность между а и в и частное чисел в и с. 2. даны два числа а и в. найти на сколько первое число меньше второго.

1  begin var a,b,c : integer; readln ( a,b,c); writeln (a+b+c); writeln (a*b*c); writeln ( a-b); writeln ( b/c); end. 2beginvara,b : integer; readln ( a,b); if a> b then writeln (a/b); if b> a then writeln (b/a); end.ах, а блок-схема? сам сможешь сделать?

Если нужны программы на паскале, то держи. во втором, правда, не учитывается то, что числа могут быть равны. если это сделать, то будет лишним палевом перед преподом, думаю) №1 var a, b, c, sum, razn, proizv: integer; chastnoe: real; label undf; begin undf: writeln('введите а: '); readln(a); writeln('введите b: '); readln(b); writeln('введите c: '); readln(c); sum : = a + b + c; // находим сумму  авс proizv : = a * b * c; // находим произведение авс razn : = a - b; // находим разность а и в chastnoe : = b / c; // находим частное в и с writeln('сумма а, в, с: ', sum); writeln('произведение а, в, с: ', proizv); writeln('разность а и в: ', razn); writeln('частное в и с: ', chastnoe); end.№2var a, b, razn: integer; beginwrite('введите а: '); readln(a); write('введите b: '); readln(b); razn : = abs( a - b ); if a < b then writeln('первое число меньше второго на ', razn)else writeln('первое число больше второго на ', razn); end.

х^4+х^2=1 x^4+x^2-1=0 представим, что x^2=y , тогда получим y^2+y-1=0 d=1^2-4*1*(-1)=5 y=(-1 +- v5)/2 , т.е. x^2=(-1 +- v5)/2 x=v( (-1 +- v5)/2 ) выражение x=v( (-1 - v5)/2 ) < 0, неверное, значит остаётся x=v( (-1 + v5)/2 ) можете подставит это значение в уравнение и оно будет =1