Меню сайту

Пошук

Наше опитування
Що є найбільш корисним на сайті? Конспекти Реферати Задачі Паскаль Презентації Плани до творів Твори за шкільною програмою Інше Результати \| Архів опитувань Всього відповідей: 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

Календар

Архів записів

Друзі сайту

Створити безкоштовний сайт на uCoz

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

День тижня