Ответы
Ответ дал:
0
Var
n:integer;
begin
writeln('Введите номер дня недели');
readln(n);
case n of
1: write('Понедельник');
2: write('Вторник');
3: write('Среда');
4: write('Четверг');
5: write('Пятница);
6: write('Суббота');
7: write('Воскресение');
else writ('Ошибка! В неделе 7 дней, а не больше!');
end;
end.
n:integer;
begin
writeln('Введите номер дня недели');
readln(n);
case n of
1: write('Понедельник');
2: write('Вторник');
3: write('Среда');
4: write('Четверг');
5: write('Пятница);
6: write('Суббота');
7: write('Воскресение');
else writ('Ошибка! В неделе 7 дней, а не больше!');
end;
end.
Ответ дал:
0
сПАСИБО)
Похожие вопросы
2 года назад
2 года назад
7 лет назад
7 лет назад
10 лет назад
10 лет назад
10 лет назад
10 лет назад