#include <iostream>
#include <iomanip>
using namespace std;
const int WDH = 4;
void get_params(int& first_day, int& count)
{
  cout << "Введите начальный день в виде числа и через пробел количество дней в месяце:" << endl;
  cin >> first_day >> count;
}
void print_header()
{
  cout << " Пон" << "  Вт" << "  Ср" << "  Чт"
       << "  Пт" << "  Сб" << "  Вс" << endl;
}
void print_body(int first_day, int count)
{
  for(int i=1;i<first_day;i++)
    cout << setw(WDH) << " ";
  int i=1;
  while( i <= count )
  {
    if( !((i-2+first_day) % 7) )
      cout << endl;
    cout << setw(WDH) << i++;
  }
  cout << endl;
}
int main(int argc, char** argv)
{
  int first_day, count;
  get_params(first_day, count);
  print_header();
  print_body(first_day, count);
  return 0;
}

import Text.Printf
-- Будем представлять календарь как таблицу (список списков)
-- Каждая клетка таблицы может включать дату, заголовок или быть пустой
data Cell = Day Int | Header String | Empty deriving Show
-- Формируем таблицу с календарем (отделили чистую функцию от IO)
-- Строим список, который соответствует таблице, если читать ее слева направо, сверху вниз. 
-- Склеиваем: заголовки, начальные пустые клетки, даты, конечные пустые клетки
-- Разбиваем полученный список на блоки по 7 элементов. Получаем "таблицу" (список списков)
-- Например, для (calendar 15 5) функция возвращает: 
--   [Header "mon",Header "tue",Header "wed",Header "thu",Header "fri",Header "sat",Header "sun"]
--   [Empty,Empty,Empty,Empty,Day 1,Day 2,Day 3]
--   [Day 4,Day 5,Day 6,Day 7,Day 8,Day 9,Day 10]
--   [Day 11,Day 12,Day 13,Day 14,Day 15,Empty,Empty]
calendar :: Int -> Int -> [[Cell]]
calendar days first = splitBy 7 $ headerLine
 ++ datesLines
  where countStart = first-1                   -- количество пустых клеток на первой неделе
        countEnd   = (8-days-first) `mod` 7    -- количество пустых клеток на последнкй неделе
        datesLines = replicate countStart Empty ++ map Day [1..days] ++ replicate countEnd Empty
        headerLine = map Header ["mon", "tue", "wed", "thu", "fri", "sat", "sun"] 
-- Разбивает список xs на блоки по n элементов
splitBy :: Int -> [t] -> [[t]]
splitBy _ [] = []
splitBy n xs = start : splitBy n end
  where (start, end) = splitAt n xs
-- Печатает календарь (вынесли форматирование календаря в отдельную функцию)
-- Для каждой строки вызываем showLine: преобразовываем значение клетки в строку (showElement), 
--   форматируем (printf) и вставляем между ними пробелы (unwords). Получаем строку для вывода на экран.
-- Полученные строки
 выводим на экран (unlines превращает список строк в одну строку с символами '\n')
printCalendar :: [[Cell]] -> IO ()
printCalendar cells = putStr $ unlines $ map showLine $ cells
  where showLine xs = unwords $ map (printf "%3s" . showElement) xs
        showElement (Day d)    = show d
        showElement (Header h) = h
        showElement Empty      = ""
main = do
  first <- do putStr "Enter start day of week (1..7): " ; readLn
  days <- do putStr "Enter count days in month: " ; readLn
  putStrLn ""
  printCalendar $ calendar days first

bool sonntag(int x) {return x % 7 = 0;}
bool einstellig(int y) {return y<10;}
void print_tag(int z)  
{
   if(einstellig(z)) printf(" ");
   printf("%d", z);
}
void print_kalender(int first_day, int num_days)
{
   int count = 0;
   //Fehlerbehandlung
   if(first_day > 7 || num_days > 31 || num_days < 28) {printf("Fehler......"); return;}
   //Header ausgeben
   printf("Mo Di Mi Do Fr Sa So\n");
   //Body ausgeben
   count = first_day + num_days;
   for(int i =1;i<=count;i++)
   {
      if(i< first_day) 
      {
        printf("   ");
      }
      else 
      {
         print_tag(i - first_day + 1);
         if(sonntag(i)) {printf("\n");}
      }
   }
}

printf("%s\n%*s", "Mo Di Mi Do Fr Sa So", first_day-1, "   ");
for(int i = 1;i<=num_days;i++)
{
   printf("%3d", i);
   if ((i+first_day-1) % 7 == 0) printf("\n")
}

Но цель задания - не календарь, а тренировка техники программирования

const int cell_len = 3;
const int max_len = 37;
char * calender  = null;
calender = malloc(max_len*cell_len*sizeof(char));
memset (calender, ' ', max_len*cell_len);
char days[] = "  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31";
memcpy(calender+(first_day-1)*cell_len, days, num_days * cell_len);
calender[7*cell_len] = '\n';
calender[14*cell_len] = '\n';
calender[21*cell_len] = '\n';
calender[28*cell_len] = '\n';
calender[first_day*cell_len+ num_days * cell_len] = '\0'; 
printf("Mo Di Mi Do Fr Sa So\n%s", calender);
free (calender);

?