25 июня, 00:55

Дни недели пронумерованы следующим образом: 0-воскресенье, 1-понедельник, 2-вторик и т. д. Известно, что первое число месяца был понедельник. Определите какой день был в N дату (N<=31)

0
Ответы (1)
  1. 25 июня, 01:38
    0
    program zz1;

    var k:integer; / / задаем переменную целого типа

    begin

    write (' введите день месяца ');

    read (k); / / вводим с клавиатуры число

    if k mod 7 = 1 then write (' понедельник '); / / проверяем введенное число и выводим ответ

    if k mod 7 = 2 then write (' вторник ');

    if k mod 7 = 3 then write (' среда ');

    if k mod 7 = 4 then write (' четверг ');

    if k mod 7 = 5 then write (' пятница ');

    if k mod 7 = 6 then write (' суббота ');

    if k mod 7 = 0 then write (' воскресенье ');

    end.
Знаешь ответ на этот вопрос?
Новые вопросы по информатике
Дано натуральное трехзначное число N. Составьте программу, выводящую четырехзначное число, полученное приписыванием цифры разряда единиц исходного числа к нему же слева (в разряд тысяч). Используя текстовые файлы input, output.
Ответы (1)
Два текста содержат одинаковое кол-во символов. первый текст составлен в алфавите мощностью 32 символа, второй мощностью 64 символа. во сколько раз различаются инф-ые объемы этих текстов
Ответы (1)
Объясните что такое в информатике: интерфейс, надсистема, подсистема. Приведите примеры и объясните почему.
Ответы (1)
Реши задачу. (Ответ округли до целых). Книга содержит 126 страниц. На каждой странице 38 строк. В каждой строке 57 символов (включая пробелы). Найти информационный объём текста, считая, что каждый символ кодируется одним байтом. Ответ: Кб
Ответы (1)
Найти сумму четных и произведение не четных чисел в промежутке от 1 до n
Ответы (1)