Uses Crt; const n=11; type Vec=array [1..n] of integer; var F: Vec; i, Col, el,Rez: integer; flag: boolean; begin for i:=1 to n do begin F[i]:=10+random(90); if (F[i] mod 2 <>0) then Col:=Col+1; end; flag:=false; for i:=1 to n do if (F[i] mod 2 = 0) then begin flag:=true; el:=F[i]; exit; end; Rez:=Col*el; Writeln(' Rez = ', Rez); ReadLn; end.
Вот тебе дано "ГО" , к нему приписываешь обратный порядок букв ГО,значит "ОГ". Уже получается ГООГ. После этого приписываешь ко всему этому букву,стоящую после О в алфавите( т.к буква "О" последняя буква "ГО"). После О в алфавите идет П,поэтому получается в итоге ГО+ОГ+П= ГООГП. Теперь, нужно повторить этот алгоритм второй раз,только уже с набором букв, который получился после первого раза выполнения алгоритма,т.е с ГООГП. Начнем. ГООГП записываем наоборот => ПГООГ. Получаем ГООГП + ПГООГ + Р = ГООГППГООГР Готовый ответ: ГООГППГООГР
1шаг алгоритма. а) записывается исходная цепочка символов, после нее записывается исходная цепочка символов в обратном порядке КОМ+МОК = КОММОК б) затем записывается буква, следующая в русском алфавите за той буквой, которая в исходной цепочке стояла на последнем месте (за буквой М в русском алфавите следует буква Н) КОММОК+Н = КОММОКН 2 шаг алгоритма. а) записывается исходная цепочка символов, после нее записывается исходная цепочка символов в обратном порядке КОММОКН+НКОММОК = КОММОКННКОММОК б) затем записывается буква, следующая в русском алфавите за той буквой, которая в исходной цепочке стояла на последнем месте (за буквой Н в русском алфавите следует буква О) КОММОКННКОММОК+О = КОММОКННКОММОКО ответ: количество букв О в полученной последовательности = 5
const n=11;
type Vec=array [1..n] of integer;
var F: Vec;
i, Col, el,Rez: integer;
flag: boolean;
begin
for i:=1 to n do
begin
F[i]:=10+random(90);
if (F[i] mod 2 <>0) then Col:=Col+1;
end;
flag:=false;
for i:=1 to n do
if (F[i] mod 2 = 0) then
begin
flag:=true;
el:=F[i];
exit;
end;
Rez:=Col*el;
Writeln(' Rez = ', Rez);
ReadLn;
end.