var
A: array [1..3, 1..5] of Integer;
i, j: Integer;
s: Real;
begin
Randomize;
WriteLn ('Массив:');
for i := 1 to 3 do begin // заполнение массива случайными значениями и вывод для просмотра
for j := 1 to 5 do begin
A [i, j] := Random (22) - 11;
Write (A [i, j], ' ');
end;
Writeln;
end;
for i := 1 to 3 do begin // замена элементов с четной суммой индексов на 555
for j := 1 to 5 do begin
if (i + j) mod 2 = 0 then
A [i, j] := 555;
end;
end;
WriteLn;
WriteLn ('Результат: '); // вывод результата
for i := 1 to 3 do begin
for j := 1 to 5 do begin
Write (A [i, j], ' ');
end;
Writeln;
end;
end.
Мощность алфавита N вычисляется по формуле
, где i - это отводимое количество бит на символ. Тогда, 2⁵ = 32. Алфавит <=32 символов. Но и больше 16(т.к. 2⁴ = 16)
Var f1,f2,fn,i,s:integer;
begin
f1:=1; f2:=-1;
i:=2; s:=0;
while i<20 do
begin
i:=i+1;
fn:=f1+f2;
f1:=f2;
f2:=fn;
if i>=7 then s:=s+fn;
end;
writeln('s = ',s);
end.
Результат:
s = -4176
Обратите внимание на то,что русская и английская буква 'а' визуально идентична.
var a,b:String;
begin
a:= ReadString();
b:= ReadString();
WriteLn();
if a.Contains('а') <> true then
WriteLn(a);
if b.Contains('а') <> true then
WriteLn(b);
end.
Формирующие факторы - комплекс объектов и операций, свойственных определенным этапам технологического цикла и предназначенных для формирования заданных требований к товароведным характеристикам продукции.
Сырье и материалы относятся к одному из основополагающих факторов, формирующих качество и количество товаров. Различают основное и вспомогательное сырье.