Головна | Реєстрація | Вхід | RSSСереда, 03.03.2021, 12:08 PM

Довідник для учнів та студентів

Меню сайту
Пошук
Наше опитування
Що є найбільш корисним на сайті?
Всього відповідей: 607
Що нового?
Форма входу
Міні-чат

День тижня

Програма, яка виводить день тижня, при введенні номеру дня:
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.

Яндекс.Метрика
Статистика

Онлайн всього: 1
Гостей: 1
Користувачів: 0
Календар
«  Березень 2021  »
ПнВтСрЧтПтСбНд
1234567
891011121314
15161718192021
22232425262728
293031
Архів записів
Друзі сайту

Guide-for-students © 2021
Створити безкоштовний сайт на uCoz