1) 3
2) 1
3) 1
4) 4
5) 1
6) 1
1шаг алгоритма.
а) <span>записывается исходная цепочка символов, после нее записывается исходная цепочка символов в обратном порядке
КОМ+МОК = КОММОК
б) </span><span>затем записывается буква, следующая в русском алфавите за той буквой, которая в исходной цепочке стояла на последнем месте
(за буквой М в русском алфавите следует буква Н)
КОММОК+Н = </span>КОММОКН<span>
2 шаг алгоритма.
</span>а) записывается исходная цепочка символов, после нее записывается исходная цепочка символов в обратном порядке
КОММОКН+НКОММОК = КОММОКННКОММОК
б) затем записывается буква, следующая в русском алфавите за той буквой, которая в исходной цепочке стояла на последнем месте
(за буквой Н в русском алфавите следует буква О)
КОММОКННКОММОК+О = КОММОКННКОММОКО
Ответ: количество букв О в полученной последовательности = 5
Var a: array[0..49] of Integer; sr:real;sum,i,n: integer;beginwriteln('Исходный массив');for i:=0 to 49 do begina[i]:=Random(300);write(a[i]:4);if a[i] mod 2 = 0 then begin sum:= sum + a[i]; n:= n +1; end;end;sr:= sum / n;writeln;writeln('Cреднее арифметическое значение четных ',sr);end.
var
x,S:Extended;
i:longint;
begin
For i:=1 to 5 do begin Read(x); S:=S+x; end;
Write(S/5);
end.
Float a,b,c,d;
// сканирование
if(a>c)
if(b>d)
printf("da");
else if(a>d)
if(b>c) printf("da");
esle printf("net");
else printf("net");