Аполлоний
5 год назад
Пожалуйста посчитайте решить пожалуйста
ОТВЕТЫ
Никифор
Oct 24, 2020
program P1;
var x,y : real;
begin
write('x = '); readln(x);
if(x < 0) then
y := 3 * x * x - 24
else y := 7.5 * x + 56;
writeln(y);
end.
program P2;
var x,y : real;
begin
write('x = '); readln(x);
if(x < 0) then
y := 3 * x * x - 24
else if x > 0 y := 7.5 * x + 56;
writeln(y);
end.
679
