Вычислить y=100/x, если x меньше 0; y=100*x, если x больше =0, с помощью программы Паскаль
Вычислить y=100/x, если x<0; y=100*x, если x>=0, с помощью программы Паскаль
Гость
Ответ(ы) на вопрос:
Гостьvar
x,y:integer;
begin
writeln('Введите число');
readln(x);
if x<0 then
y:=100/x
else
y:=100*x;
writeln('Полученное число =', y);
end.
Не нашли ответ?
Похожие вопросы