Дан одномерный массив целых чисел. Все элементы массива, дающие в остатке от деления на 3 число 1, заменить на 1.

1)

var

s,r: string;

i: integer;

begin

readln(s);

r: ='';

for i: =1 to length(s) do

if s[i]< > 'a' then r: =r+s[i];

writeln(r);

end.

2)

текст разделяем знаками препринания

var t: array [1..100] of string; p, s, r: string; f, i, j, k: integer;

begin p : = ' ; : -'; readln(s); k : = 0; r : = ''; for i : = 1 to length(s) do begin f : = 0; for j : = 1 to length(p) do if s[i] = p[j] then f : = 1; if f = 0 then r : = r + s[i] else begin k : = k + 1; t[k] : = r; r : = ''; end; if i=length(s) then begin k : = k + 1; t[k] : = r; end; end; for i : = k downto 1 do write(t[i], ' '); end.

человек: воспринимать,  бежать,  ,  понять, обучить.

компьютер: вычислять,  закодировать, напечатать,  декодировать,  обработать,  передать, сохранить. 

хм передать можно и к человеку вставить.

пусть р - это вероятность события при котором достается белый карандаш

тогда 2^i=1/p 

но i=4

2^4=1/p

p=1/16 - вероятность доставания белого карандаша

1/16=x/16 (x - это количество белых)

количество=64/16=4 карандаша белого цвета

var a: array [byte,byte] of real; i,j,n,m: byte; s: real; d,p: word;

beginwrite('введите количество строк n = '); readln(n); write('введите количество строк m = '); readln(m); for i: =1 to n do for j: =1 to m do readln(a[i,j]);

s: =0; d: =0; p: =0; for i: =1 to m do beginfor j: =1 to n do s: =s+a[j,i]; for j: =1 to n doif a[j,i]< (s/n) then inc(d); writeln('количество элементов в столбце ',i,' прямоугольной вещественной матрицы, меньших среднего арифметического d = ',d,' среднее арифметическое = ',(s/n): 0: 4); p: =p+d; d: =0; s: =0; end; writeln('общее количество элементов меньших элементов в столбцах = ',p); writeln('матрица'); for i: =1 to n do beginfor j: =1 to m do write(a[i,j],' '); writeln; end; end.