Головна | Реєстрація | Вхід | RSSП`ятниця, 03.29.2024, 4:03 AM

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

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

День тижня

Програма, яка виводить день тижня, при введенні номеру дня:
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
Календар
«  Березень 2024  »
ПнВтСрЧтПтСбНд
    123
45678910
11121314151617
18192021222324
25262728293031
Архів записів
Друзі сайту

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