Question

работа в паскале, я вообще не шарю в нем, помогите пожалуйста сделать

Answer 1

Var A,b,c,x,sum: integer; Y: real; Begin WriteLn('vvedite x');ReadLn(x); WriteLn('vvedite a');ReadLn(a); WriteLn('vvedite b');ReadLn(b); WriteLn('vvedite c');ReadLn(c); Sum:= a+b+c; If sum > 20 then begin Y:= 2*x-1; End else begin 3*sqr(x)*x-1; End; End.

Answer 2

С телефона как мог

Answer 3

и так отлично, спасибо большое

Answer 4

WriteLn('vvedite x');ReadLn(x); должны быть на одной строчке? или на разных?

Answer 5

Без разницы вообще, хоть все в одну строку пиши