Ананьин
5 год назад
Составить программу ,которая выводит квадратный корень заданного числа N,если число положительное и кратное 5 ,в противном случае-квадрат числа
ОТВЕТЫ
Матвей
Oct 24, 2020
//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.
//Внимание! Если программа не работает, обновите версию!
begin
var N:=readinteger('N=');
if (N>0) and (N mod 5 =0) then
Writeln('N=',sqrt(N)) else
Writeln('N=',N**2);
end.
803
Смежные вопросы:
