Запишіть кожне слово окремо до масиву, а потім напишіть невелику програму, яка друкує слова з наступного рядка через одне, починаючи з першого слова («цей»): "цей якщо спосіб ви погано це підходить читаєте для щось шифрування пішло важливо не повідомлень так" (в python)!

var a: integer;

begin

readln(a);

if (a < 12) then  

 begin

 if (a >= 0) then

   begin

     case a of 1: writeln('Январь'); end;

     case a of 2: writeln('Февраль'); end;

     case a of 3: writeln('Март'); end;

     case a of 4: writeln('Апрель'); end;

     case a of 5: writeln('Май'); end;

     case a of 6: writeln('Июнь'); end;

     case a of 7: writeln('Июль'); end;

     case a of 8: writeln('Август'); end;

     case a of 9: writeln('Сентябрь'); end;

     case a of 10: writeln('Октябрь'); end;

     case a of 11: writeln('Ноябрь'); end;

     case a of 12: writeln('Декабрь'); end;

   end;

 end;

end.

Язык не указан, предположим что нужен кто то из популярных: Паскаль или Питон.

PascalABC.NET:

#1 (По умному)

begin

 var a := Range(1, ReadInteger('N = '));

 a.Sum.Println;

 a.Aggregate(BigInteger.One, (p, q) -> p*q).Println;

end.

#2 "А нас учили по другому"

begin

 var N := ReadInteger();

 var sum:int64 := 0;

 var prod:BigInteger := 1;  //Для большого N произведение не влезет в int64, по этому юзаем бесконечное целое число BigInteger

 for var i := 1 to N do begin

   sum += i;

   prod *= i;

 end;

 Println(sum, prod);

end.

#3 Вариант на Питоне

summ, prod = 0, 1

for i in range(1, int(input())+1):

   summ += i; prod *= i

print(summ, prod)

Объяснение: