OINF-CLUB
Գլխավոր
Մուտք
Գրանցվել
Կիրակի, 17.12.2017, 16:50Ողջունում եմ ձեզ հյուր | RSS
[ Նոր հաղորդագրություններ · Մասնակիցներ · Ֆորումի կանոնները · Որոնում · RSS ]
Страница 1 из 11
Ֆորում » Խնդիրների վերլուծություններ » 2010-2011 ուս.տարվա հանրապետական օլիմպիադա, Շիրակի մարզ, տարածքայի փուլ: » ԳԵՂԵՑԻԿ ԹԻՎ (BEAUTIFUL)
ԳԵՂԵՑԻԿ ԹԻՎ (BEAUTIFUL)
oinf-clubДата: Ուրբաթ, 25.02.2011, 20:45 | Сообщение # 1
Կայքի հիմնադիր
Группа: Ադմինիստրատորներ
Сообщений: 19
Репутация: 10
Статус: Օֆլայն
ԽՆԴՐԻ ՎԵՐԼՈւԾՈւԹՅՈւՆԸ

Խնդրի լուծման համար անհրաժեշտ է ստեղծել տրամաբանական ֆունկցիա, որը կստուգի տրված բնական թվի "գեղեցիկ" լինելը:
Որի հիմնական մասը իրենից ներկայացնում է բնական թվի թվանշանների քանակի և գումարի որոշում:
Ծրագրի հիմնական մասում հաջորդաբար բոլոր բնական թվերի համար ստուգվում է թվի "գեղեցիկ" լինելը, մինչև կոորոշվի n-ը:

Code
VAR N,I:LONGINT;
FUNCTION BEAUTIFUL(X:LONGINT):BOOLEAN;
VAR S,K:LONGINT;
BEGIN
      S:=0;
      K:=0;
      WHILE X>0 DO
      BEGIN
           K:=K+1;
           S:=S+X MOD 10;
           X:=X DIV 10
      END;
      BEAUTIFUL:=S MOD K=0
END;
BEGIN
      ASSIGN(INPUT,'INPUT.TXT');
      RESET(INPUT);
      ASSIGN(OUTPUT,'OUTPUT.TXT');
      REWRITE(OUTPUT);
      READLN(N);
      I:=0;
      WHILE N<>0 DO
      BEGIN
           I:=I+1;
           IF BEAUTIFUL(I) THEN N:=N-1;
      END;
      WRITELN(I);
END.
 
Ֆորում » Խնդիրների վերլուծություններ » 2010-2011 ուս.տարվա հանրապետական օլիմպիադա, Շիրակի մարզ, տարածքայի փուլ: » ԳԵՂԵՑԻԿ ԹԻՎ (BEAUTIFUL)
Страница 1 из 11
Поиск:


Copyright Արամ Հովհաննիսյան © 2017