Иннокентий
6 год назад
Помогите пожалуйста :3
ОТВЕТЫ
Порфирьевич
Aug 6, 2019
1)
var a,b,c:integer;
begin
Writeln(X=);
read(x);
Writeln(Y=);
read(y);
c:=y;
y:=x;
x:=c;
Writeln(X=,x);
Writeln(Y=,y);
End.
2) var x,y:integer;
begin
Write(x);
Readln(x);
y:=sqr((1-sqr(x)+5*Sqr(Sqr(X))));
write(y);
readln;
end.
var a,b,c:integer;
begin
Writeln(X=);
read(x);
Writeln(Y=);
read(y);
c:=y;
y:=x;
x:=c;
Writeln(X=,x);
Writeln(Y=,y);
End.
2) var x,y:integer;
begin
Write(x);
Readln(x);
y:=sqr((1-sqr(x)+5*Sqr(Sqr(X))));
write(y);
readln;
end.
73
Смежные вопросы:
