//PascalABC.NET
//Версия 3.3, сборка 1611
begin
write(ReadSeqIntegerWhile(x->x<>0).Where(x->x<0).Aggregate(BigInteger(1),(x,y)->(x*y)));
end.
Виден только 7 номер
Не видно полное условие и не понятно для чего нужна переменная z, если все правильно понимаю то по условию значение у выведет я ответ 'да'
V=4/3*pi*r^3;
pi=acos(-1) вроде
а вообще
var
переменные
begin
assign....
assign...
read(r);
writeln(pi*4/3*r*r*r);
end.
а фото тебе просто формулу нужно в паскаль загнать
только что такое In я не знаю, я 7 класс)))
Var A,L: real;
begin
readln(L);
A:=((exp(ln(L)*3)-8.5)/7.6)+10*sqr(L);
writeln(A);
end.
Смотри, x:=x+y Сам Y у нас тут не меняется, значит менялся только X. отсюда получаем 4=x+27 обычное уравнение. x=4-27=-23.
А т.к. Y не менялся, первоначальные значения равны:
x=-23, y=27