pascal abc
y=x/2 x>25
x+4 x<25
Ответы на вопрос
Ответил thedomidy
0
program task31057170;
var
x: integer;
y: real;
begin
Writeln('ВВЕДИТЕ X: ');
Readln(x);
if x > 25 then
y := x / 2
else if x < 25 then
y := x + 4
else Writeln('Error: x = 25!');
Writeln('Y = ', y);
end.
Новые вопросы
Русский язык,
2 года назад
Английский язык,
2 года назад
Математика,
7 лет назад
Алгебра,
7 лет назад
Математика,
9 лет назад
География,
9 лет назад