Question

Дано целое число. Если оно положительно, то вычесть из него 8, в противном случае не изменять его. Вывести полученное число.

Answer 1

// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger;
  if n>0 then n-=8;
  Writeln(n)
end.

Answer 2

PascalABC:
program n;
var
a: integer;
begin
readln(a);
if a>0
a-=8;
writeln(a);
end.

C#
int: a = 0;
a = Convert.ToInt32(Console.ReadLine());
if (a>0)
{
a-=8;
}
Console.WriteLine(a);

Console.ReadLine();

Answer 3

Алгоритм решения задачи:

1. Ввести целое число. 2. Проверить, является ли число положительным. 3. Если число положительное, то вычесть из него 8. 4. Вывести полученное число.

Пример решения на языке Python:

number = int(input("Введите целое число: "))  # Шаг 1: ввод числа

if number > 0:  # Шаг 2: проверка на положительность
    number -= 8  # Шаг 3: вычитание 8
    print("Полученное число:", number)  # Шаг 4: вывод результата
else:
    print("Число не изменилось:", number)  # Шаг 4: вывод результата

Пример работы программы:

Введите целое число: 10
Полученное число: 2

Введите целое число: -5
Число не изменилось: -5

Таким образом, программа будет выводить полученное число после вычитания 8, если исходное число положительное, и исходное число без изменений, если оно отрицательное или равно нулю.