Предмет: Информатика,
автор: miskovivan
написать программу:по заданному порядковому номеру дня недели напечатать его название и указать рабочий это день или не рабочий
Ответы
Автор ответа:
0
var month:integer;
begin
readln(month);
if ((month >0 ) and ( month < 13)) then
case month of
1 : writeln ('january (31 days) ');
2 : writeln ('fabruary (28 days) ');
3 : writeln ('march (31 days)');
4 : writeln ('April (31 days) ');
5 : writeln ('fabruary (28 days)');
6 : writeln ('march (31 days)');
7 : writeln ('january (31 days) ');
8 : writeln ('fabruary (28 days) ');
9 : writeln ('march (31 days)');
10 : writeln ('january (31 days) ');
11 : writeln ('fabruary (28 days) ');
12: writeln ('march (31 days)');
end
else writeln('error');
readln;
end.
begin
readln(month);
if ((month >0 ) and ( month < 13)) then
case month of
1 : writeln ('january (31 days) ');
2 : writeln ('fabruary (28 days) ');
3 : writeln ('march (31 days)');
4 : writeln ('April (31 days) ');
5 : writeln ('fabruary (28 days)');
6 : writeln ('march (31 days)');
7 : writeln ('january (31 days) ');
8 : writeln ('fabruary (28 days) ');
9 : writeln ('march (31 days)');
10 : writeln ('january (31 days) ');
11 : writeln ('fabruary (28 days) ');
12: writeln ('march (31 days)');
end
else writeln('error');
readln;
end.
Автор ответа:
0
var
a: array [1..7] of System.Tuple<Boolean, String>;
i: byte;
begin
a[1] := new System.Tuple<boolean,string>(true, 'Понедельник');
a[2] := new System.Tuple<boolean,string>(true, 'Вторник');
a[3] := new System.Tuple<boolean,string>(true, 'Среда');
a[4] := new System.Tuple<boolean,string>(true, 'Четверг');
a[5] := new System.Tuple<boolean,string>(true, 'Пятница');
a[6] := new System.Tuple<boolean,string>(false, 'Суббота');
a[7] := new System.Tuple<boolean,string>(false, 'Воскресение');
readln(i);
writeln((i in [1..7] ? String.Format('Day #{0} is {1}. It is {2}.', i, a[i].Item2,
(a[i].Item1 ? 'working day' : 'weekend')) : 'There aren`t this day.'));
end.
a: array [1..7] of System.Tuple<Boolean, String>;
i: byte;
begin
a[1] := new System.Tuple<boolean,string>(true, 'Понедельник');
a[2] := new System.Tuple<boolean,string>(true, 'Вторник');
a[3] := new System.Tuple<boolean,string>(true, 'Среда');
a[4] := new System.Tuple<boolean,string>(true, 'Четверг');
a[5] := new System.Tuple<boolean,string>(true, 'Пятница');
a[6] := new System.Tuple<boolean,string>(false, 'Суббота');
a[7] := new System.Tuple<boolean,string>(false, 'Воскресение');
readln(i);
writeln((i in [1..7] ? String.Format('Day #{0} is {1}. It is {2}.', i, a[i].Item2,
(a[i].Item1 ? 'working day' : 'weekend')) : 'There aren`t this day.'));
end.
Похожие вопросы
Предмет: Другие предметы,
автор: golikirina2
Предмет: Математика,
автор: lanatsiganok
Предмет: Литература,
автор: Аноним
Предмет: Биология,
автор: AnastasiyaSiz