составьте программу вычисления значения y: на паскале
Приложения:
Ответы на вопрос
Ответил pacixor
0
//Pascal
var
x, y: real;
begin
write('x = '); readln(x);
if x > 100 then
y := 5 * x + 6
else
if ((x >= 10) and (x <= 100)) then
y := 200 * x
else
if x < 10 then
y := x / 2;
writeln('y = ', y);
end.
var
x, y: real;
begin
write('x = '); readln(x);
if x > 100 then
y := 5 * x + 6
else
if ((x >= 10) and (x <= 100)) then
y := 200 * x
else
if x < 10 then
y := x / 2;
writeln('y = ', y);
end.
Новые вопросы