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; }
const
n = 4;
var
a: array[1..n, 1..n] of integer;
i, j, s: integer;
sr: real;
begin
s := 0;
Writeln('Исходная матрица');
for i := 1 to n do
begin
for j := 1 to n do
begin
a[i, j] := Random(256);
Write(a[i, j]:5);
s := s + a[i, j]
end;
Writeln
end;
sr := s / sqr(n);
Writeln('Средняя яркость', sr);
Writeln('Результирующая матрица');
for i := 1 to n do
begin
for j := 1 to n do
begin
if a[i, j] <= sr then a[i, j] := 0 else a[i, j] := 255;
Write(a[i, j]:5)
end;
Writeln
end
end.
Тестовое решение:
Исходная матрица
108 247 9 175
10 80 123 80
75 165 82 128
167 168 6 27
Средняя яркость103.125
Результирующая матрица
255 255 0 255
0 0 255 0
0 255 0 255
255 255 0 0