Даны 2 числа если квадратный корень из второго числа меньше первого числа, то увеличить второе число в 5 раз и вывести его на экран в противном случае вывести его на экран "no"

Question

Юстина

26 октября, 20:33

+2

Ответы (2)

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

Неонила · Answer 1

program ex;

var x, y:integer;

begin

readln (x) ; readln (y) ;

if sqrt (y)
else writeln ('no') ;

end.

Феодора · Answer 2

program ex;

var x, y:integer;

begin

readln (x, y) ;

if sqrt (y)
begin y:=y*5;

writeln (y) ;

end

else writeln ('no') ;

end.