Const n=10;
var a:array[1..n] of integer;
i,k:integer;
begin
writeln('Исходный массив:');
a[1]:=random(10);
write(a[1],' ');
for i:=2 to n do
begin
a[i]:=a[i-1]+random(10);
write(a[i],' ');
end;
writeln;
k:=1;
for i:=2 to n do if a[i-1]<>a[i] then k:=k+1;
writeln('k = ',k);
end.
Пример:
Исходный массив:
9 18 19 19 28 32 38 41 41 47
k = 8
//Наверное, мелся ввиду Unicode
var s:string;i:integer;
begin;
s:='"Скоро новыий год!"';
for i:=1 to length(s) do
write('-',ordunicode(s[i]));
<span>end.
Вывод:
34-1057-1082-1086-1088-1086-32-1085-1086-1074-1099-1080-1081-32-1075-1086-1076-33-34
</span>
Какой язык программирования?
1. cd
2. В трассировке сам делай. После первой итерации s = 50, после 2ой s=100, после третей s = 150, после четвертой s = 200 (если четвертая будет, тк не понятно на каком это языке)
3. Аналогично со вторым
4. 6 итераций. Трассировку сам
5. не понимаю что за язык напишу на с++ (a==10 || a==0)
<h2>Пример 1</h2>
0 · 2⁷ + 0 · 2⁶ + 1 · 2⁵ + 0 · 2⁴ + 0 · 2³ + 1 · 2² + 1 · 2¹ + 0 · 2⁰ = 0 + 0 + 32 + 0 + 0 + 0 + 4 + 2 = 32 + 4 + 2 = 38₁₀
<h2>Пример 2</h2>
1 · 2⁷ + 1 · 2⁶ + 0 · 2⁵ + 0 · 2⁴ + 1 · 2³ + 1 · 2² + 1 · 2¹ + 1 · 2⁰ = 128 + 64 + 0 + 8 + 4 + 2 + 1 = 207₁₀
<h2>Пример 3</h2>
1 · 2⁷ + 0 · 2⁶ + 1 · 2⁵ + 0 · 2⁴ + 1 · 2³ + 1 · 2² + 1 · 2¹ + 0 · 2⁰ = 128 + 0 +32 + 0 + 8 + 4 + 2 + 0 = 174₁₀
<h2>Пример 4</h2>
0 · 2⁷ + 1 · 2⁶ + 1 · 2⁵ + 1 · 2⁴ + 1 · 2³ + 1 · 2² + 1 · 2¹ + 1 · 2⁰ = 0 + 64 + 32 + 16 + 8 + 4 + 2 + 1 = 127₁₀