Question

Нужно составить программу на языке Pascal к этой задаче! 9 класс! Помогите, пожалуйста!!! " Известно, что 31 января 2011 года приходится на понедельник. Какие значения должны быть присвоены литерной переменной у в алгоритме, определяющем день недели для любого числа (chislo) января 2011 года? chislo:= chislo mod 7 если chislo=3 то у: = *...' если chislo=4 то у: = '...* если chislo=5 то у: = *...' если chislo=6 то у: = '...' если chislo=0 то у : = '...' если chislo=1 то у: = '...' если chislo=2 то у : = '...' "

Answer 1

chislo:= chislo mod 7
если chislo=3 то у: = 'понедельник'
если chislo=4 то у: = 'вторник'
если chislo=5 то у: = 'среда'
если chislo=6 то у: = 'четверг'
если chislo=0 то у : = 'пятница'
если chislo=1 то у: = 'суббота'
если chislo=2 то у : = 'воскресенье'

Answer 2

Программа на языке Pascal для решения данной задачи может выглядеть следующим образом:

program DayOfWeek;

var
  chislo: integer;
  u: string;

begin
  write('Введите число января 2011 года: ');
  readln(chislo);
  
  chislo := chislo mod 7;
  
  if chislo = 3 then
    u := '*...'
  else if chislo = 4 then
    u := '...*'
  else if chislo = 5 then
    u := '*...'
  else if chislo = 6 then
    u := '...'
  else if chislo = 0 then
    u := '...'
  else if chislo = 1 then
    u := '...'
  else if chislo = 2 then
    u := '...';
    
  writeln('День недели:', u);
end.

Программа предлагает пользователю ввести число января 2011 года и затем рассчитывает день недели для этого числа, используя описанный алгоритм. Результат выводится на экран в виде строки, которая содержит символы '*' и '.', обозначающие день недели.