Составить программу, которая вычисляет значение y=(a+b) 3 -2(d-c) 4 +ab Program a1; Var a, b, c, d, x1, x2, y: integer; Begin writeln(a=); read(a); writeln(b=); read(b); writeln(c=); read(c); writeln(d=); read(d); x1:=a+b; x2:=d-c; y:=x1*x1*x1 – 2*x2*x2*x2*x2 + a*b; Writeln(y=,y) End.

Продаются товары двух видов. Запросить с клавиатуры для каждого вида товаров цену и количество в начале рабочего дня и количество проданного товара. Вывести стоимость всех товаров в начале рабочего дня и стоимость всех непроданных товаров. Program a2; Var c1, c2, k1, k2, n1, n2, m1, m2, x1, x2, s1, s2, s: integer; Begin writeln(n1=); read (n1); writeln(n2=); read (n2); writeln(с 1=); read (с 1); writeln(с 2=); read (с 2); writeln(x1=); read (x1); writeln(x2=); read(x2); m1:=с 1*n1; m2:=с 2*n2; k1:=n1-х 1; k2:=n2-х 2; s1:=c1*k1; s2:=c2*k2; s:=s1+s2; Writeln(в начале рабочего дня); Writeln(стоимость первого товара:, m1); Writeln(стоимость второго товара:, m2); Writeln(в конце рабочего дня); Writeln(стоимость непроданного товара:, s) End. Пусть n1 и n2 – количество товаров на начало рабочего дня; с 1 и с 2 – цены товаров; х 1 и х 2 – количество проданного товара; Тогда стоимости товаров на начало рабочего дня: m1=с 1*n1, m2=с 2*n2; Количество непроданного товара: k1=n1-х 1, k2=n2-х 2; Стоимость непроданного товара: s1=c1*k1; s2=c2*k2

Составить программу обмена значениями трех переменных. Program a1; Var a, b, c, x: integer; Begin writeln(a=); read(a); writeln(b=); read(b); writeln(c=); read(c); x:=c; c:=b; b:=a; a:=x; Writeln(a,b,c) End. abc Нужна промежуточная переменная Х х=с; с=b; b=a; a=x