Даны числа: a и b. Если a > b, то уменьшить его в 2 раза, иначе увеличить на 3.

Question

Информатика

Васена

9 марта, 23:39

Даны числа: a и b. Если a > b, то уменьшить его в 2 раза, иначе увеличить на 3.

+4

Ответы (1)

Знаете ответ на вопрос?

Викентия · Answer 1

Program zadasha;

var a, b, c, d: real;

begin

writeln ('vvedite chislo a') ;

readln (a) ;

writeln ('vvedite chislo b') ;

readln (b) ;

if a>b then c:=a/2

writeln ('poluchennoe chislo a: ', c) else d:=a*3 writeln ('poluchennoe chislo a', d) ;

end.