написать на языке паскаль программу для вычисления выражения
s=(2х+у)*(х-у) протестировать ее для
х=2,у=1
х=3,у=0
х=0,у=-2
var
x, y, s: integer;
begin
readln(x, y);
s := (2*x + y) * (x-y);
writeln(s);
end.
Оцени ответ
Вход
Регистрация
Задать вопрос
написать на языке паскаль программу для вычисления выражения
s=(2х+у)*(х-у) протестировать ее для
х=2,у=1
х=3,у=0
х=0,у=-2
var
x, y, s: integer;
begin
readln(x, y);
s := (2*x + y) * (x-y);
writeln(s);
end.