Две задачи

1) Дано 4 числа. Найти произведение этих чисел, уменьшенное в 2 раза.

2) Увеличить число х на 1, если оно положительное, в противном случаи уменьшить его на 1

Question

Информатика

Авдотьюшка

7 ноября, 02:33

Две задачи

1) Дано 4 числа. Найти произведение этих чисел, уменьшенное в 2 раза.

2) Увеличить число х на 1, если оно положительное, в противном случаи уменьшить его на 1

+2

Ответы (1)

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

Тюня · Answer 1

1)

var

a, b, c, d:integer;

begin

readln (a, b, c, d) ;

writeln (a*b*c*d/2) ;

end.

2)

var

x:integer;

begin

readln (x) ;

if x>0 then

x:=x+1

else

x:=x-1;

writeln (x) ;

end.

Две задачи1) Дано 4 числа. Найти произведение этих чисел, уменьшенное в 2 раза.2) Увеличить число х на 1, если оно положительное, в противном случаи уменьшить его на 1

Две задачи

1) Дано 4 числа. Найти произведение этих чисел, уменьшенное в 2 раза.

2) Увеличить число х на 1, если оно положительное, в противном случаи уменьшить его на 1