Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
3
program nedel; uses crt; var n:integer; begin clrscr; writeln('Введите число,чтобы узнать,какому дню недели оно соответствует'); 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('Воскресенье'); readkey; end.
run
|
edit
|
history
|
help
0
Please
log in
to post a comment.
Genetic Pascal
Сортировка массива цифр
Thao Vi
formato_real
tabeliran polinom
test27
nomer8
Homework 10
Calcular digitos de un numero (hasta 4 digitos)
TanTai11A2@
Please log in to post a comment.