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

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

Question

Информатика

Марлеша

12 июня, 00:51

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

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

+3

Ответы (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.