Question

Напишите программу на языке Паскаль, которая при вводе положительного числа утраивает его значение, при вводе отрицательного числа увеличивает его на 10 единиц, при вводе 0 уменьшает его на 2 единицы.

Answer 1

Ответ:

pascal

Объяснение:

program prog1;

var

 a: real;

begin

 Write('Введите число ');

 ReadLn(a);

 if a > 0 then a := a *3

 else if a < 0 then a := a + 10

 else a := a - 2;

 Write('a = ', a);

end.

Answer 2

Конечно, вот пример программы на языке Паскаль, который выполняет описанные вами операции:

pascalCopy code
program NumberOperations;
var
    num: integer;

begin
    writeln('Введите число:');
    readln(num);
    
    if num > 0 then
        num := num * 3
    else if num < 0 then
        num := num + 10
    else
        num := num - 2;
    
    writeln('Результат операции: ', num);
end.

Программа сначала запрашивает у пользователя ввод числа, затем в зависимости от его значения выполняет требуемую операцию (утраивает, увеличивает на 10 или уменьшает на 2) и выводит результат операции.