Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
2
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
arreglo suma1
formato_real
Сумма пар чисел кратных и некратных 11 с дельтой
practica 3 ejercicio 5
mult_matrix.pas
solar sysmtem 6 (with random mass m1)
Сумма пар чисел кратных и некратных 11
test28
две рядом стоящие одинаковые цифры у числа
123456