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