Аскольд
5 год назад
Написать программу в Pascal ABC.Вычислить значение функции y(x) и вывести его на экран
ОТВЕТЫ
Ираклий
Oct 24, 2020
progran Znanija;
var x, y:integer;
begin
readln(x);
if x<10 then
y:=2*x+x-5;
else
begin
if x<13 then
y:=5*x*x-x;
else
y:=7*x-5;
end
writeln(y);
end.
var x, y:integer;
begin
readln(x);
if x<10 then
y:=2*x+x-5;
else
begin
if x<13 then
y:=5*x*x-x;
else
y:=7*x-5;
end
writeln(y);
end.
709
Смежные вопросы:
