Дано целое число. если оно является положительным то прибавить к нему 20, в противном случае вычесть из него 5. вывести полученное число (написать программу, начертить блок-схему).

Program qwerty;
var a:integer;
begin
read (a);
if a>0 then a:=a+20
else a:=a-5;
write (a);
end.

Хорошо! Для решения этой задачи и написания программы, давайте следовать следующим шагам:

1. Сначала мы должны запросить у пользователя целое число. Для этого воспользуемся функцией input() и приведем полученное значение к типу int:

num = int(input("Введите целое число: "))

2. Теперь у нас есть число, и мы можем приступить к условиям. Давайте воспользуемся условным оператором if-else для проверки знака числа:

if num > 0:
result = num + 20
else:
result = num - 5

3. В этом шаге мы рассматриваем два сценария:
- Если число больше нуля (то есть положительное), мы прибавляем 20 к числу и сохраняем результат в переменную result.
- В противном случае (если число меньше или равно нулю), мы вычитаем 5 из числа и также сохраняем результат в переменную result.

4. Наконец, мы должны вывести полученное число на экран. Воспользуемся функцией print():

print("Результат:", result)

Теперь у нас есть полная программа, которая проверяет, является ли число положительным и выполняет соответствующие действия. Давайте нарисуем блок-схему для этой программы:

[начало]
|
|
V
[ввод числа] -> [проверка знака] -> [выполнить действие] -> [вывести результат]
|
|
V
[конец]

Надеюсь, это помогло!