tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Дано целое число k(1
Дано целое число k(1< =k< =365).определить каким днем недели (понедельником ) является k-ый день невисокосного года ,в котором 1 января -понедельник
borkunovanasta
1 19.06.2019 13:50
27
Ответы
KOTE422
02.10.2020 05:27
Pascal
var k,a : integer;
begin
readln (k);
a := k mod 7;
case a of
1 : writeln (k,' Понедельник');
2 : writeln (k,' Вторник');
3 : writeln (k,' Среда');
4 : writeln (k,' Четверг');
5 : writeln (k,' Птница');
6 : writeln (k,' Суббота');
0 : writeln (k,' Воскресенье');
end;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
poseido2008p04tk8
26.07.2019 09:40
Все вопросы по ! ! 1)что такое microsoft excel? 2)как определяется ячейка в эл. таблице? 3)что определяет ссылка? 4)как задается адрес ячейки? 5)как задается блок...
helpmepls1234566
26.07.2019 09:30
Решите, по ! только с дано, формулами итд: )...
к2а2т2я
06.06.2019 10:50
Дано целое число х и натуральное n. составьте алгоритм вычисления х^n. напишите программу на паскале. нужно использовать while do....
Angelim
06.06.2019 09:56
Нужно составить полностью программу паскаль...
Nastya7654321
06.06.2019 10:40
Даны два целых двузначных числа a и b. если их значения не равны, то присвоить переменным значения 33 . вывести новые значения переменных. решить, !...
KoTuK405
06.06.2019 10:40
Нарисуйте блок-схему с операторами: 1.если в комнате темно, тогда включи свет. 2. если имеется задолженность, учи лекции, иначе отчислят. 3.проверьте равно ли введенное...
gaasvaleria
06.06.2019 10:30
Написать программу на языке pascal: : вводятся целые числа до первого числа, которое меньше двух. определить, сколько простых чисел было введено. описание переменных:...
talibansky
06.06.2019 10:30
Sos! cоставьте алгоритм чертежником, в результате выполнения которого на координатной плоскости будет нарисован прямоугольник, длины сторон которого равны 3 и 4 единицам....
Murmurvk
06.06.2019 10:20
Какой минимальный объем памяти (в кбайтах) необходим для хранения 4-х страниц экранного изображения, если разрешающая экрана 640 ´480 пикселей, а количество используемых...
nam0
06.06.2019 10:20
Втаблице запросы к поисковому серверу .расположите номера запросов в порядке возрастания количества страниц, который найдет поисковой сервер по каждому запросу 1)шкафы...
Популярные вопросы
Даю у меня БЖБ орыс тілден ...
2
Я несчастный молодой поэт или я несчастный,молодой поэт?...
2
Знайдіть суму всіх цілих чисел, які містяться на координатній прямій...
2
was siehst du lieber ? antworten auf die frage gebrauche die satze...
1
2 -тапсырма «Төрт түлік мал» тақырыбына синквейндайында.1. тақырыпқа...
3
Определить геологическое строение Приднестровья: 1. Какими тектоническими...
3
57. Жұмбақты оқы. Шешуін тап. Бар ма, жоқ па оны анық білмейсің,Ол...
3
сор по казахскому языку на лучший ответ...
3
Задание №5. ИЗ ПРЕДЛОЖЕННЫХ ВАРИАНТОВ НАЙДИ ТЕ, КОТОРЫЕ ОТНОСЯТСЯ...
1
Какие вы можете привести доводы в пользу трактовки здоровья как...
2
var k,a : integer;
begin
readln (k);
a := k mod 7;
case a of
1 : writeln (k,' Понедельник');
2 : writeln (k,' Вторник');
3 : writeln (k,' Среда');
4 : writeln (k,' Четверг');
5 : writeln (k,' Птница');
6 : writeln (k,' Суббота');
0 : writeln (k,' Воскресенье');
end;
end.