Головна | Реєстрація | Вхід | RSS | Середа, 03.03.2021, 12:08 PM |
Довідник для учнів та студентів | |
Вітаю Вас Гость |
|
День тижняПрограма, яка виводить день тижня, при введенні номеру дня:program ponedilok; var k,d:integer; begin writeln ('vvedit nomer dnia'); readln (k); if (k>=1) and (365>=k) then d:= k mod 7; if d=2 then writeln ('vivtorok'); if d=3 then writeln ('sereda'); if d=4 then writeln ('chetver'); if d=5 then writeln ('piatnitsa'); if d=6 then writeln ('sybota'); if d=0 then writeln ('nedilia'); if d=1 then writeln ('ponedilok'); readln end. |
|
Guide-for-students © 2021 |
Створити безкоштовний сайт на uCoz |