Question

Написать программу:

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

Answer 1

pascal

var a:integer;

begin

writeln('введите целое число');

readln(a);

if a>0 then a:=a*3 else  a:=a-100;

writeln(a);

end.