Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:066536 / 332
.txt program p332;
var
n,n2,x,y,z,t:integer;
begin
writeln; writeln; writeln;
write('n='); readln(n);
n2:=n;
x:=trunc(sqrt(n2));
n2:=n2-x*x;
y:=trunc(sqrt(n2));
n2:=n2-y*y;
z:=trunc(sqrt(n2));
n2:=n2-z*z;
t:=trunc(sqrt(n2));
writeln('x=',x,' y=',y,' z=',z,' t=',t);
writeln(n,'=',x*x,'+',y*y,'+',z*z,'+',t*t);
{readln;}
end.
var
n,n2,x,y,z,t:integer;
begin
writeln; writeln; writeln;
write('n='); readln(n);
n2:=n;
x:=trunc(sqrt(n2));
n2:=n2-x*x;
y:=trunc(sqrt(n2));
n2:=n2-y*y;
z:=trunc(sqrt(n2));
n2:=n2-z*z;
t:=trunc(sqrt(n2));
writeln('x=',x,' y=',y,' z=',z,' t=',t);
writeln(n,'=',x*x,'+',y*y,'+',z*z,'+',t*t);
{readln;}
end.
Соседние файлы в папке 066536