Var a:integer; begin write('введите число месяца '); readln(a); if (a mod 7 = 1) then write('вт'); if (a mod 7 = 2) then write('ср'); if (a mod 7 = 3) then write('чт'); if (a mod 7 = 4) then write('пт'); if (a mod 7 = 5) then write('сб'); if (a mod 7 = 6) then write('вс'); if (a mod 7 = 0) then write('пн'); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
