Ребята, помогите, очень важно.

Пользователь вводит целое число x. Если число положительное – выполняется расчёт x4, если отрицательное x3. Используется только одна подпрограмма-функция паскаль.

1

Ответы и объяснения

2013-04-24T20:21:25+04:00

program p;

var x: integer;

begin

writeln("Введите число: ");

readln(x);

if x>0 then x:=x*4 else x:=x*3;

writeln("Ответ: ",x); readln; end.