Номер 6, страница 178 - гдз по информатике 8 класс учебник Босова, Босова

Вопросы и задания. Параграф 4.4. Программирование разветвляющихся алгоритмов. Глава 4. Начала программирования на языке Паскаль - номер 6, страница 178.

Условие.

6. Напишите программу для решения задачи № 11 к § 3.5 (определение дня недели).

11. Известно, что 31 января 2022 года было понедельником. Какие значения должны быть присвоены литерной переменной у в алгоритме, определяющем день недели для произвольного числа (chislo) января 2022 года?

chislo := chislo mod 7
если chislo = 3 то y: = '_'
если chislo = 4 то y: = '_'
если chislo = 5 то y: = '_'
если chislo = 6 то y: = '_'
если chislo = 0 то y: = '_'
если chislo = 1 то y: = '_'
если chislo = 2 то y: = '_'

Решение.

var
chislo: integer;
begin
write ('Введите число');
readln (chislo);
if chislo mod 7 = 0 then writeln ('Пятница')
else if chislo mod 7 = 1 then writeln ('Суббота')
else if chislo mod 7 = 2 then writeln ('Воскресенье')
else if chislo mod 7 = 3 then writeln ('Понедельник')
else if chislo mod 7 = 4 then writeln ('Вторник')
else if chislo mod 7 = 5 then writeln ('Среда')
else writeln ('Четверг');
end.