Разработать схему алгоритма для вычисления выражения: S = (2x+y) (x-y) Протестировать алгоритм для следующих исходных данных: 1) x=2, y=12) x=3, y=0 3) x=0, y=-2

programm algoritm;

var x, y, s: integer;

begin

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

readln (x);

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

readln (y);

s: = (2 * x + y) * (x - y);

writeln ('Полученное значение выражения равно', s);

end.

Проверим выполнение программы на определенных значениях переменных:

1) x = 2, y = 1

s = (2 * 2 + 1) * (2 - 1) = (4 + 1) * 1 = 5;

2) x = 3, y = 0

s = (2 * 3 + 0) * (3 - 0) = (6 + 0) * 3 = 6 * 3 = 18;

3) x = 0, y = - 2

s = (2 * 0 - 2) * (0 + 2) = - 2 * 2 = - 4.