Все свои .. умоляю составить программы на паскале для решения : 1.напишите на ая алгоритм сложения двух простых дробей ( без сокращения дроби)2. напишите на ая алгоритм вычисления y по формуле y=(1-x^2+5x^4)^2 , где x- заданное целое число3. напишите наиболее короткие алгоритмы вычисления выражения y=x^10​

Задание 1)

Program Task_1;

 

var

a, b, c, d: integer;

 

begin

 

writeln('Напишите значение числителя первой дроби:');

readln(a);

 writeln('Напишите значение знаменателя первой дроби:');

 readln(b);

  

 writeln('Напишите значение числителя второй дроби:');

 readln(c);

  writeln('Напишите значение знаменателя второй дроби:');

  readln(d);

  

   writeln('Сложение двух данных дробей равно: ', (a/b)+(c/d));

    

end.

Задание 2)

Program Task_2;

 

var

x,y: integer;

 

begin

 

writeln('Введите значение переменной x:');

readln(x);

 

 writeln('y=(1-x^2+5x^4)^2, y = ', sqr(1-x*x+5*sqr(x*x)));

 

 

end.

Задание 3)

Program Task_3;

 

var

x,y: real;

 

begin

 

writeln('Введите значение переменной x:');

readln(x);

 y:= x*x*x*x*x*x*x*x*x*x;

  

  y:= exp(ln(x)*10);

    

    

   end.

1)
program ex1;uses crt;var a, b: integer;begin  readln(a, b);  if a > b then  begin    a:= a * 2;    b:= b + 5;  end  else  begin    a:= a - 5;    b:= b - 5;  end;  write(a, b);end.

2)
program ex1;uses crt;var a, b, c: integer;begin  readln(a, b, c);  if (a + b > c) and (a + c > b) and (b + c > a) then  writeln('Треугольник существует')  else  writeln('Треугольник не существует');  if (a = b ) and (b = c) then    writeln('Треугольник равносторонний')    else      if (a = b) or (b = c) or (a = c) then        writeln('Треугольник равнобедренный')        else          writeln('Треугольник разносторонний');end.

Чтобы сделать объемную пятиконечную звезду, вам потребуется всего лишь квадратный лист бумаги или картона, и две минуты времени.

Итак, чтобы сделать объемную звезду, возьмите квадратный лист, сложите его пополам. Запомните: все остальные действия необходимо выполнять, чтобы сложенный пополам лист лежал сгибом вниз.

Складываем листик еще раз пополам – получаем полосу сгиба.

Теперь нам нужны еще две полосы – для этого необходимо свернуть нашу заготовку таким образом:

И потом еще вот так:

Далее берем левый нижний уголочек и прикладываем его к середине – точке пересечения двух линий.

Потом отгибаем таким образом:

И к полученной линии ровненько пригибаем правую сторону:

Дальше складываем нашу заготовку пополам, загибая назад:

Следующее действие: отогнуть уголочек, чтобы получить еще одну линию сгиба – по ней нужно будет отрезать, получив в результате треугольник:

Держим вот этой стороной к себе:

Загибаем:

Распрямляем:

И отрезаем и получаем:

В принципе, звезда готова – осталось ее развернуть и слегка подправить все линии, чтобы получилось, как положено:

Вот и все, можно красить гуашью или красками, если вы делали из белой бумаги.
Конечно, это далеко не единственный сделать объемную звезду, и в дальнейшем мы обязательно расскажем вам о других вариантах, чтобы было из чего выбрать.