Головна | Реєстрація | Вхід | RSS | П`ятниця, 03.29.2024, 4:03 AM |
Довідник для учнів та студентів | |
Вітаю Вас Гость |
|
День тижня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 © 2024 |
Створити безкоштовний сайт на uCoz |