С клавиатуры вводится натуральное число n выясните является ли оно квадратом какого то натурального числа если является то выведите это число если нет то
5-9 класс
|
вывести -1 например 4 является квадратом 2 а 17 не является квадратом никакого числа.
var
n,i,result:Integer;
Begin
Read(n);
result:=-1;
for i:=1 to n do
if (i*i=n) then
begin
result:=i;
break;
end;
Writeln(result);
end.
Другие вопросы из категории
Создать массив с именем N с количеством элементов R, случайными числами в интервале от -3 до 6. Найдите количество положительных чисел. Замените найденным значением каждый второй элемент. Изменённый и первоначальный массив выводить на экран.
Б. Компьютер. Выполните предложенное задание.
У Саши никогда не было своего компьютера, и он
решился купить компьютер. Он зашел на сайт интернет-магазина и выбрал себе
следующую готовую конфигурацию: Intel Core i5-2400 3,1GHz /ASUS P8P67 EVO (REV 3.0) /Kingston KHX1600C9D3K2/8GX 2x4GB 1600MHz /MSI GeForce GTX560 Ti N560GTX-Ti Twin Frozr II /D-Link DFE-520TX, PCIEthernet, 10/100Mbps/HDD 750ГБ, 2.5",
5400об/мин, 8МБ, SATA II, Western Digital Scorpio Blue, WD7500BPVT/ Antec Basiq VP650P 650W / Zalman Z9 Plus/Mouse+Keyboard - Genius NetScroll 110 (оптическая, 800dpi, PS/2, Bundle, white)+ Genius KB06XE(PS/2) / ViewSonic VA1931wa-LED, 1366x768, 5ms /Genius MaxFighter F-17+Genius MaxFire Grandias (USB, 12 кнопок, кнопки Turbo и Macro, с обратной связью)+
Genius Speed Wheel 3 MT / ИБП Powercom WOW-700U
Читайте также
слева направо и справа налево
Дано натуральное число. Выяснить является ли оно простым. Паскаль
Если можно с пояснениями пожалуйста
читается одинаково слева направо и справа налево.. имя входного файла Input.txt, имя выходного файла output.txt
Определить оканчивается ли оно цифрой 7.