Дни от седмицата

Да се напише програма, която позволява да се въведе с цифра ден от седмицата и после отпечатва:

  1. името на деня с думи
  2. следващия ден с думи
  3. всички дни, които остават до края на седмицата
  4. дали този ден е почивен ден
  5. всички работни дни
  6. всички почивни дни
Публикувано в 10a с етикети . Постоянна връзка.

2 коментара по Дни от седмицата

  1. Lubomira каза:
    program WeekDays;
    
    type
    TWeekDays= (Ponedelnik, Wtornik, Sryada, Chetwurtuk, Petuk, Subota, Nedelya);
    
    var
      N:TWeekDays;
      K:integer;
    
    begin
    WriteLn('Vuvedete den ot sedmicata s chislo (1-Ponedelnik ,7-Nedelya):');
    ReadLn(K);
    k:=K-1;
    N:=TWeekDays(K);
    If (K>7) then
    WriteLn('Nevaliden den ot sedmicata');
    WriteLn('Imeto na denya s dumi e :',N);
    ReadLn;
    
    end.
                                                   

Вашият коментар