Ответ:
Объяснение:
var
x,y,p:real;
begin
write('Enter X:=');readln(x);
write('Enter P:=');readln(p);
y:=(p-2*x)/4;
write('S:=',y*(y+x));
end.
паскаль
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:
Объяснение:
var
x,y,p:real;
begin
write('Enter X:=');readln(x);
write('Enter P:=');readln(p);
y:=(p-2*x)/4;
write('S:=',y*(y+x));
end.
паскаль