Question

Написать задачу на паскале: 1 ввести число. Если оно неотрицательно, вычесть из него 10, в противном случае прибавить к нму 10. ПОМОГИТЕ ПОЖАЛУЙСТА , ДАЮ 50 БАЛЛОВ.

Answer 1

Ответ:

Объяснение:

var

i: integer;

begin

writeln("Napishite washe chislo: ");

readln(i);

if i > 0 then

   i = i - 10

else

    i = i + 10;

readln;

end.

Answer 2

Конечно, вот задача на языке Pascal:

pascalCopy code
program Main;

var
  number: Integer;

begin
  Write('Введите число: ');
  Readln(number);
  
  if number >= 0 then
    number := number - 10
  else
    number := number + 10;
  
  Write('Результат: ', number);
end.

Эта программа позволяет вам ввести число, а затем, в зависимости от того, положительное оно или отрицательное, либо вычтет из него 10, либо прибавит к нему 10, и выводит результат.