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

Публикувано на 05 октомври, сряда от Данаил

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

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

2 Responses to Дни от седмицата

  1. Lubomira каза:
    12 октомври, сряда в 22:59 
    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.

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