Ответы
Ответ дал:
0
//Pascal ABC.NET v3.1 сборка 1219
Var
x,y:real;
begin
readln(x);
if x>0 then y:=power(x,4)-2*sqr(x)-6 else y:=sqr(x)-5*x+1;
writeln(y);
end.
Пример ввода:
0
Пример вывода:
1
Var
x,y:real;
begin
readln(x);
if x>0 then y:=power(x,4)-2*sqr(x)-6 else y:=sqr(x)-5*x+1;
writeln(y);
end.
Пример ввода:
0
Пример вывода:
1
Ответ дал:
0
а разве сначала не writeln , а потом readln?
Ответ дал:
0
writeln() - вывод, readln() - ввод
Ответ дал:
0
ааа, хорошо, спасибо
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад
8 лет назад
9 лет назад