Дано целое число n . увеличить его в 3 раза если число положительное. Построить блок-схему и написать программный код на языке Паскаль.
Ответы
Ответ дал:
0
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.
не точно нужно дополнить,но что-то типо этого
не точно нужно дополнить,но что-то типо этого
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад
8 лет назад