Question

Составить программу ,которая выводит квадратный корень заданного числа N,если число положительное и кратное 5 ,в противном случае-квадрат числа

Answer 1

//PascalABC.NET 3.3,сборка 1611 от 06.01.2018

//Внимание! Если программа не работает, обновите версию!

begin

var N:=readinteger('N='); 

if (N>0) and (N mod 5 =0) then

Writeln('N=',sqrt(N)) else

Writeln('N=',N**2);

end.