OINF-CLUB
Գլխավոր
Մուտք
Գրանցվել
Կիրակի, 17.12.2017, 16:42Ողջունում եմ ձեզ հյուր | RSS
[ Նոր հաղորդագրություններ · Մասնակիցներ · Ֆորումի կանոնները · Որոնում · RSS ]
Страница 1 из 11
Модератор форума: TMNT 
Ֆորում » Խնդիրների վերլուծություններ » Օլիմպիադա ինֆորմատիկայից` նվիրված ակումբի հիմնադրման մեկ ամյակին: » ԱԿՈՒՄԲԻ ՀԻՄՆԱԴՐՄԱՆ ՕՐԸ (BIRTHDAY):
ԱԿՈՒՄԲԻ ՀԻՄՆԱԴՐՄԱՆ ՕՐԸ (BIRTHDAY):
oinf-clubДата: Երեքշաբթի, 14.12.2010, 16:06 | Сообщение # 1
Կայքի հիմնադիր
Группа: Ադմինիստրատորներ
Сообщений: 19
Репутация: 10
Статус: Օֆլայն
ԽՆԴՐԻ ՎԵՐԼՈւԾՈւԹՅՈւՆԸ

Ակումբի հիմնադրման օրը նահանջ տարիներին նշվում է սեպտեմբերի 12-ին, իսկ սովորական տարիներին` սեպտեմբերի 13-ին: Տրված տարվա համարով որոշում ենք նահանջ է, թե` ոչ և տպում ենք ամսաթիվը: Քանի որ տարվա ֆորմատը բաղկացած է չորս թվից, ապա ավելացնում ենք զրոներ:

 
TamaraДата: Երեքշաբթի, 14.12.2010, 16:16 | Сообщение # 2
Շարքային
Группа: Пользователи
Сообщений: 5
Репутация: 10
Статус: Օֆլայն
Ներկայացնում եմ իմ լուծումը Pascal լեզվով

Code
VAR N:INTEGER;
BEGIN
      ASSIGN(INPUT,'INPUT.TXT');
      RESET (INPUT);
      ASSIGN(OUTPUT,'OUTPUT.TXT');
      REWRITE (OUTPUT);
      READLN(N);
      IF (N MOD 400=0) OR ((N MOD 4=0) AND (N MOD 100<>0))  
         THEN WRITE('12/09/') ELSE WRITE('13/09/');
      IF N<10 THEN WRITE('000')  
              ELSE  
              IF N<100 THEN WRITE('00')  
                       ELSE
                       IF N<1000 THEN WRITE('0');
      WRITE(N)
END.


Сообщение отредактировал Tamara - Երեքշաբթի, 14.12.2010, 16:19
 
TMNTДата: Երեքշաբթի, 14.12.2010, 18:16 | Сообщение # 3
Շարքային
Группа: Модераторы
Сообщений: 14
Репутация: 10
Статус: Օֆլայն
Ահա իմ լուծումը C++ լեզվով
Code
#include <fstream.h>
int length(int a)
{
    int k=0;
    while (a!=0)
    {
     k++;
     a/=10;
    }
    return k;
}
void main()
{
    ifstream fin("input.txt");
    ofstream fout("output.txt");
    int i=4;
    int n;
    fin >> n;
    if (n%400==0 || (n%4==0 && n%100!=0))
    {
     fout << "12/09/";
     switch(length(n))
     {
     case 3: fout << "0" << n; break;
     case 2: fout << "00" << n; break;
     case 1: fout << "000" << n; break;
     default : fout << n;
     }
     fout << endl;
    }
    else    
    {
     fout << "13/09/";
     switch(length(n))
     {
     case 3: fout << "0" << n; break;
     case 2: fout << "00" << n; break;
     case 1: fout << "000" << n; break;
     default : fout << n;
     }
     fout << endl;
    }
}


Сообщение отредактировал TMNT - Երեքշաբթի, 14.12.2010, 18:25
 
ArmanДата: Երեքշաբթի, 14.12.2010, 18:49 | Сообщение # 4
Շարքային
Группа: Пользователи
Сообщений: 3
Репутация: 10
Статус: Օֆլայն
Խնդրի լուծումը Visual Basic լեզվով
Code
Private Sub Form_Load()
a = FreeFile
Open "input.txt" For Input As #a
Input #a, s
Close #a

While Len(s) <> 4 ' Qani der taretvi erkarutyun@ = che 4-i, taretvi skzbic avelacnum enq 0
s = "0" + CStr(s)
Wend

If s Mod 400 = 0 Or s Mod 4 = 0 And s Mod 100 <> 0 Then ' ete tarin nahanj e
s = "12/09/" + CStr(s)
Else
s = "13/09/" + CStr(s) ' ete voch `
End If

Open "output.txt" For Output As #a
Print #a, s
Close #a

End Sub


Сообщение отредактировал TMNT - Երեքշաբթի, 14.12.2010, 19:33
 
TMNTДата: Երեքշաբթի, 14.12.2010, 19:31 | Сообщение # 5
Շարքային
Группа: Модераторы
Сообщений: 14
Репутация: 10
Статус: Օֆլայն
Իմ լուծումը C# լեզվով
Code
using System;
using System.IO;
class Birthday
{
     public static void Main()
     {
         using (StreamReader inp=new StreamReader("input.txt"))  
         {  
             int n=Convert.ToInt32(inp.ReadLine());
             inp.Close();  
         }  
         using (StreamWriter outp=new StreamWriter("output.txt"))  
         {  
             if (n%400==0 || (n%4==0 && n%100!=0))  
             {
                 string s="12/09/";  
                 string sn=n.ToString();
                 sn=sn.PadLeft(4,'0');
                 outp.WriteLine(s+sn);
             }       
             else
             {
                 string s="13/09/";  
                 string sn=n.ToString();
                 sn=sn.PadLeft(4,'0');
                 outp.WriteLine(s+sn);  
             }     
             outp.Close();  
         }
     }   
}
 
Ֆորում » Խնդիրների վերլուծություններ » Օլիմպիադա ինֆորմատիկայից` նվիրված ակումբի հիմնադրման մեկ ամյակին: » ԱԿՈՒՄԲԻ ՀԻՄՆԱԴՐՄԱՆ ՕՐԸ (BIRTHDAY):
Страница 1 из 11
Поиск:


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