работа в паскале, я вообще не шарю в нем, помогите пожалуйста сделать
Приложения:
Ответы на вопрос
Ответил djonik2
0
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.
Ответил djonik2
0
С телефона как мог
Ответил maxfpwnz
0
и так отлично, спасибо большое
Ответил maxfpwnz
0
WriteLn('vvedite x');ReadLn(x); должны быть на одной строчке? или на разных?
Ответил djonik2
0
Без разницы вообще, хоть все в одну строку пиши
Новые вопросы