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

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

Question

Информатика

Марлеша

27 марта, 14:35

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

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

+5

Ответы (1)

Знаете ответ?

Кандидий · Answer 1

program p;

var x: integer;

begin

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

readln (x) ;

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

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