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

[airyashov]

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

program magic;

var d,m,y:longint;
    s:string;

function Sum(s:string):String;
var Summa:longint;
    i,ch,code:integer;
    ss:string;
begin
     Summa:=0;
     for i:=1 to length(s) do
       begin
         Val(s[i],ch,code);
         Summa:=Summa+ch;
       end;
     Str(Summa,ss);
     Sum:=ss;
end;

begin
     read(d,m,y);
     y:=d+m+y;
     Str(y,s);

     while (Length(s)>1) do
       begin
            s:=Sum(s);
       end;
     writeln(s);
end.

[somewhere]

Пока вы совсем не запутались, третья задача, читать внимательно

Некий астролог определяет счастливые и нечаствливые дни так: он вписывает подряд число, номер месяца и год рождения. В получившемся числе складывает цифры, у вновь получившегося числа внось складывает все цифры и т.д., пока очередная сумма цифр не станет однозначным числом. Это число и характеризует "счастливость дня". Напишите программу определяющую по дате ее "счастиловость".

airyashov, y = d+m+y - это разве сумма цифр, входящих в дату?

[airyashov]

В 3ей...Я сначало должен сложить...1995+5+2=2002...После надо щемить эти 2ки...Ток вот как?

основываясь на этом думаю именно так

[somewhere]

Тогда понятно :-) Хозяин - барин...

[Vovchik]

подъезд=n / (9*4)+1

тока есть одно но если ввести 36 выводит 2,а должно выводить 1 !!!
"....+1" надо убрать тогда всё в порядке !!!!!

[airyashov]

тогда всеж через условие нужно
подъезд=n/(9*4)+1
if (n mod (9*4))=0 then dec(подъезд)
этаж=(n-36*(подъезд-1))/4+1
if ((n-36*(подъезд-1)) mod 4)=0 then dec(этаж)

[Serge_Bliznykov]

или я чего-то не понимаю, либо одно из двух...
первая задача с номером квартиры вроде решается без всяких if
подъезд := (trunc((n-1)/36))+1;
этаж := Trunc(((n-1) mod 36)/4)+1;


а по поводу счастливого числа полность согласен с Хыиуду
и его решением в посту #10 (написано - сложить ВСЕ ЦИФРЫ, на не числа...

[Хыиуду]

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

Ага, это функция из Дельфи, которая переводит число в строку. Надо только написать ее на Паскале. Процедура str тебе поможет