Run Code
|
API
|
Code Wall
|
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
кристина
fgh
For10
Подсчёт количества целочисленных точек внутри круга радиуса r
Lunohod-2
Huong11a2@
Calculatrice 1.0
Zadanie 3 б
real vs integer
funcion esprimo con boolean