Предмет: Информатика,
автор: ася2809
Пожалуйста, помогите написать программу для системы на фото
Приложения:
Ответы
Автор ответа:
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
ааа, хорошо, спасибо
Интересные вопросы
Предмет: Қазақ тiлi,
автор: Аноним
Предмет: Математика,
автор: drakonglack
Предмет: Математика,
автор: csgokonstantinov693
Предмет: География,
автор: milashka13