№7
program job_7;
var
x,y : integer;
begin
writeln(введите x);
readln(x);
y:=(1-(x*x)+5*(x*x*x*x))*(x*x);
writeln(y=,y);
end.
№6
var m,n: integer;
begin
writeln(Введите дроби m,n);
readln(m, n);
while m<>n do
if m>n then m:=m-n
else n:=n-m;
writeln(ответ=,m);
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.