const s='Каждый охотник желает знать где сидит фазан';
var s1,sub:string;
i,j,m,n:integer;
a:array[1..100] of string;
begin
i:=0;n:=0;
repeat
inc(i);
if (s[i]=' ')or(s[i]=',') then begin
inc(n);
a[n]:=sub;
sub:='';
end
else sub:=sub+s[i];
until i=length(s);
inc(n);
a[n]:=sub;
writeln;
for i:=1 to n do
begin
if i mod 4 =1 then writeln(a[i]);
if i mod 4 =2 then writeln(' ',a[i]);
if i mod 4 =3 then writeln(' ',a[i]);
if i mod 4 =0 then begin
writeln(' ',a[i]);
writeln;
end;
end;
end.
Объяснение:
Возможности протестировать нет, но надеюсь работает. Питон не знаю, но возможно
програмка:
#include "stdafx.h" #include <iostream> #include <cstdlib> using namespace std; int main(int argc, _TCHAR* argv[]) { setlocale(LC_ALL, "RUS"); cout << "Введите месяц: "; int m; cin >> m; if(m == 2) { char ch; cout << "Год високосный? (y/n):"; cin >> ch; if(ch == 'y') cout << "В этом месяце 29 дней" << endl; else if(ch == 'n') cout << "В этом месяце 28 дней" << endl; } if((m % 2)) cout << "В этом месяце 31 день." << endl; else { if(!(m % 2)) { if(m != 2) cout << "В этом месяце 30 дней." << endl; } } system("pause"); return 0; }