1. Программа умножает своё значение на десять и затем прибавляет индекс цикла. В итоге делает это 4 раза.
Это равносильно сложению строковых данных в виде чисел от одного до четырёх.
s = '1' + '2' + '3' + '4' = 1234
Ответ: 1234.
2. Программа прибавляет к значению y значение индекса x (от 6 до 2) и затем делит значение на 5. [5 раз]
y = (0 + 6) / 5 = 1.2
y = (1.2 + 5) / 5 = 1.24
y = (1.24 + 4) / 5 = 0.848
y = (0.848 + 3) / 5 = 0.7696
y = (0.7696 + 2) / 5 = 0.55392
Ответ: 0.55392.
3. Программа прибавляет к значению s один и затем умножает значение на 2. [4 раза]
s = (0 + 1) * 2 = 2
s = (2 + 1) * 2 = 6
s = (6 + 1) * 2 = 14
s = (14 + 1) * 2 = 30
Ответ: 30.
33*40*64*8бит на символ = скоко аа
вес в битах
(кои-8 ето 8 бит на символ не 8символнасимвол)
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('n=');
if n<9 then n:=9; // от дурака
var d:=ArrRandom(n,-50,50);
Write('Исходный массив: '); d.Println;
var i:=1;
repeat
d[i]*=2; i+=2
until i>n-1;
Write(' После удвоения: '); d.Println;
d:=d[:1]+d[2:8]+d[9:];
Write(' После удаления: '); d.Println
end.
<u>Пример</u>
n= 15
Исходный массив: -13 -33 48 -47 -9 19 -21 45 10 -4 -30 40 -31 0 -2
После удвоения: -13 -66 48 -94 -9 38 -21 90 10 -8 -30 80 -31 0 -2
После удаления: -13 48 -94 -9 38 -21 90 -8 -30 80 -31 0 -2
<span>Program Z2;
</span><span>uses crt; // Подключение модуля
</span>Const //Описание констант
n =16;
var //Описание переменных
s1,s2:real;//Не совсем понятно зачем real, ведь массив integer
<span>var
q: string; //Строковая переменная !!!Вообще нигде не используется
</span>Var m: array [1..n] of integer; //Массив целых чисел
Var i,j:integer; //Переменные цикла !!Хватило бы и одной
begin
//Формирование массива
for l:=1 to n do
read(m[i]);
//Обнуление переменных сумм
s1:=0;
s2:=0;
for J:=1 to 8 do
begin
//Подсчет суммы элементов с четным порядковым номером
s1:=s1+m|2*j];
//Подсчет суммы элементов с нечетным порядковым номером
s2:=s2+m|2*j-1];
end;
If s1>s2 then //Условие
<span>writeln('cyммa элементов с четным индексом больше. чем сумма с нечетным);
end.</span>