Написать программу в Pascal ABC.
Вычислить значение функции y(x) и вывести его на экран
Вычислить значение функции y(x) и вывести его на экран
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var
x, y : integer;
begin
readln(x, y);
if x<10 then
begin
y:= 2*x-5+x;
writeln(y);
end
if (x<13) and (x>10) then
begin
y :=5*x*x-x;
writeln(y);
end
if x>=13 then
begin
y :=7*x-5;
writeln(y);
end
end.