Var n:integer; begin writeln('Введите номер дня недели от 1 до 7'); readln(n); if n=1 then writeln('Понедельник'); if n=2 then writeln('Вторник'); if n=3 then writeln('Среда'); if n=4 then writeln('Четверг'); if n=5 then writeln('Пятница'); if n=6 then writeln('Суббота'); if n=7 then writeln('Воскресенье'); end.
Самая простая программа, не затрагивает более сложные разделы изучения языка pascal.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
