Question

Если введенное число отрицательное, то увеличьте его в 4 раза. Паскаль. умоляю помогите...

Answer 1

var a: integer;

begin

readln(a);

if (a < 0) then

a := a * 4;

writeln(a);

end.

Надеюсь, что помог.

Answer 2

Конечно, вот пример кода на Pascal, который увеличит введенное число в 4 раза, если оно отрицательное:

pascalCopy code
program MultiplyByFour;
var
  num: integer;

begin
  writeln('Введите число:');
  readln(num);

  if num < 0 then
  begin
    num := num * 4;
    writeln('Число увеличено в 4 раза: ', num);
  end
  else
  begin
    writeln('Число положительное или равно нулю. Осталось без изменений: ', num);
  end;

  readln;
end.

Программа сначала запрашивает у вас ввод числа, затем проверяет, является ли оно отрицательным. Если число отрицательное, то оно умножается на 4 и выводится на экран. В противном случае число остается без изменений.