Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Составить программу нахождения дня недели по известной цифре.

Ответ оставил Гость

Program den_nedeli;
var a: integer;
begin
writeln (Введите цифру дня недели);
readln (a);
case a of
1: writeln (Понедельник);
2: writeln (Вторник);
3: writeln (Среда);
4: writeln (Четверг);
5: writeln (Пятница);
6: writeln (Суббота);
7: writeln (Воскресенье);
end;
end.