Даны два числа. если квадратный корень из второго числа меньше первого числа, то увеличить второе число в пять раз. иначе заменить его нулями.

Question

Арсюша

1 ноября, 15:11

+5

Ответы (1)

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

Данило · Answer 1

Var a, b:real;

begin

readln (a, b) ;

if (sqrt (b)
else b:=0;

writeln (b, ' - второе число') ;

end.