Question

Вычислить y=100/x, если x<0; y=100*x, если x>=0, с помощью программы Паскаль

Answer 1

var
x,y:integer;
begin
writeln('Введите число');
readln(x);
if x<0 then
y:=100/x
else
y:=100*x;
writeln('Полученное число =', y);
end.