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

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

Question

Информатика

Леонард

24 января, 04:23

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

Пользователь вводит целое число 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.