1
1
1
0
0
0
0
0
О нет! Что-то пошло не так во время добавления ответа
Слишком коротко.<span> Напишите минимум 20 символов, чтобы объяснить все.</span>
var
a, b: real;
begin
write('Введите a,b: ');
readln(a, b);
writeln('Гипотенуза = ', sqrt(sqr(a) + sqr(b)):0:2);
end.
var y, x: <em>real</em>;
begin
write('x = ');
read(x);
y:=sqr(x)-6*x;
if (y>=0) then begin y:=sqrt(y)/(x+3);
write('y = ', y:5:3);
end
else write('В процессе вычислений корень оказался отрицательным, поэтому вычислить его невозможно')
end.
1)33554432:8:1024:1024=4 Гб
И это, к сожалению, все, что Я знаю XD