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

Question

Манефа

28 июня, 00:45

+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.