Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 14.01.2016, 19:29   #21
Poma][a
Новичок
Джуниор
 
Регистрация: 11.10.2011
Сообщений: 3,882
По умолчанию

Цитата:
Чего?
Дык корень я увидел и порадовался.. На остальное не смотрел.. Каюсь

Код:
var
        i, k, cnt : Integer;
        n : Int64;
 
 
begin
        ReadLn (n);
 
        i := 2; k := 0; cnt := 1;
        while n <> 1 do
                if n mod i = 0 then begin
                        Inc (k);
                        n := n div i
                end
                else begin
                        Inc (i);
                        cnt := cnt*(k+1);
                        k := 0
                end;
 
        if k <> 0 then
                cnt := cnt*(k+1);
 
        WriteLn (cnt)
end.
Вот.. Нашел из закромов родины
Poma][a вне форума Ответить с цитированием
Старый 14.01.2016, 20:28   #22
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

Цитата:
вроде бы косяков с trunc(z) нет
И правда. Мало того, для всех i от 1 до 46340 и k:=i*i и Sqrt(k) строго равно i. Даже без всякого Trunc. Нежданка. И куда эти особенности вещественных чисел делись

PS Я бы все равно ни в коем разе на это в реальной программе не надеялся бы
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию

Последний раз редактировалось Аватар; 14.01.2016 в 20:41.
Аватар вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как узнать сколько сводных таблиц и сколько срезов на рабочем листе? RISagitov Microsoft Office Excel 0 31.10.2015 19:30
Определить, больше ли сумма простых делителей числа М, произведения составных делителей числа N. Radmir. v Помощь студентам 5 10.11.2014 22:23
Сколько стоит такая программка? И сколько по времени её сделать? Палыч I Фриланс 8 10.09.2010 16:23
сколько платит каждый жилец за электроэнергию и сколько они платят вместе. известно - стоимость 1кВт/час Pops Microsoft Office Excel 9 25.01.2009 15:28
Помогите оценить, сколько может стоить проект. Его покупают - сколько взять? grenles Свободное общение 4 16.07.2008 09:38