А есть без рекурсии вариант?...Как говоритсо чем проще, тем лучшеХыиуду писал(а):Счастливость (рекурсивно)Код: Выделить всё
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;
Это невозможно, т.к. паскаль жалуется, что число получается дробное.airyashov писал(а):(41-41/36*36)/4+1=(41-1*36)/4+1=5/4+1=2 в целых числах считать
divRelrin писал(а):Это невозможно, т.к. паскаль жалуется, что число получается дробное.
Ниче не понятно....airyashov писал(а):div
Код: Выделить всё
program floor;
var n:integer;
begin
read(n);
write((n-n div (9*4)*(9*4)) div 4+1);
end.Вот пока часть 2ой задачи...пока ненаю как дальше идти.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.
Только самое сложное это в цикле фор...Я намудрил...Часть подсчетов он делает правильно, другую - нет.