Помогите с задачами!

[airyashov]

(41-41/36*36)/4+1=(41-1*36)/4+1=5/4+1=2 в целых числах считать

[Relrin]

Счастливость (рекурсивно)

Код: Выделить всё

function happy(s:string): integer;
var sum, i: integer;
begin
  if length(s)=1 then 
     begin happy:=ord(s[1])-ord('0'); exit; end;
  sum:=0;
  for i:=1 to length(s) do
    sum:=sum+ord(s[i])-ord('0');
  happy:=happy(inttostr(sum));
end;

А есть без рекурсии вариант?...Как говоритсо чем проще, тем лучше

[Relrin]

(41-41/36*36)/4+1=(41-1*36)/4+1=5/4+1=2 в целых числах считать

Это невозможно, т.к. паскаль жалуется, что число получается дробное.

[airyashov]

Это невозможно, т.к. паскаль жалуется, что число получается дробное.

div

[Relrin]

div

Ниче не понятно....
с дивом мурнево получается....

[airyashov]

мудрено -

Код: Выделить всё

program floor;
var n:integer;
begin
     read(n);
     write((n-n div (9*4)*(9*4)) div 4+1);
end.

[Relrin]

За n что ты брал? Номер квартиры грубо говоря?

Со 2ой задачей я чутка разобрался...но с делением проблемы...Пока что написано ко 2ой:
begin
writeln('vvedite kol-vo taktov ');
readln(k);
writeln('vvedite chislo krasnih bakterii');
readln(n);
s:=0;
For i:=1 to k do
begin
zel:=n;
s:=s+t;
t:=zel*i*2
i:=i+1;
end;
writeln(s);
readln;
end.

Только самое сложное это в цикле фор...Я намудрил...Часть подсчетов он делает правильно, другую - нет.

Вот пока часть 2ой задачи...пока ненаю как дальше идти.

[Relrin]

как избавиться от ошибки...в паскале..Жалуется что неизв. индефикатор inttostr...

[Relrin]

Помогите со 2ой задачей....с 3ей желательно тоже...

[somewhere]

Со второй тебе помогли, см. раздел алгоритмы если не знаешь о рядах Фибоначчи