ENG  RUSTimus Online Judge
Online Judge
Задачи
Авторы
Соревнования
О системе
Часто задаваемые вопросы
Новости сайта
Форум
Ссылки
Архив задач
Отправить на проверку
Состояние проверки
Руководство
Регистрация
Исправить данные
Рейтинг авторов
Текущее соревнование
Расписание
Прошедшие соревнования
Правила
вернуться в форум

Обсуждение задачи 1012. K-ичные числа. Версия 2

i thing problem not in longint no inaf
Послано zzzlll 3 янв 2007 22:26
you can look

var
a1,a0,p:extended;
n,k,i:extended;
begin
readln(n,k);
a1:=k-1;
i:=1;
{for i:=2 to n do
begin }
repeat
i:=i+1;
p:=a1;
a1:=(a1+a0)*(k-1);
a0:=p;
until i>=n;
{end; }
writeln(a1+a0:0:0);
end.
You way are currect but you MUST use HI-precision
Послано Liu Yizhou 26 июн 2007 12:44
You way are currect but you MUST use HI-precision