Question

Дано целое число n . увеличить его в 3 раза если число положительное. Построить блок-схему и написать программный код на языке Паскаль.

Answer 1

Program p1;var n:integer;begin Writeln ('Введите число');Readln (n);if n>0 Then a:=(n*3) and (n mod 2=0) Else;  Writeln (n);Readln;End. 
не точно нужно дополнить,но что-то типо этого

Answer 2

Блок-схема:

yamlCopy code
       Начало
         |
         V
       Ввод n
         |
         V
       Если n > 0, то:
         |
         V
       n := n * 3
         |
         V
       Вывод n
         |
         V
       Конец

Код на языке Паскаль:

scssCopy code
program increase_if_positive;

var
  n: integer;

begin
  writeln('Введите число: ');
  readln(n);
  
  if n > 0 then
    n := n * 3;
  
  writeln('Результат: ', n);
end.