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

Question

Информатика

Вилена

24 апреля, 18:52

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

+2

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