При первом проходе программы
m=0
в цикле for сравниваем Если элемент массива под номером 1 (т.е. число 2) минус 2*m>1 то m равна текущему элементу массива.
т.к. 2-2*0=2 и это больше 0 то значение m становится равным 2
1 проход m=2
При втором проходе цикла фор сравниваем уже второй элемент массива, т.е.
Dat[2]-2*m>1
6-2*2>1
2>1
Условие выполняется значит значение m на 2 проходе равно 6
при дальнейших проходах цикла for мы больше не получим значений больше 1 т.к. текущее m=6, т.е. из элементов массива мы будем вычитать 12, т.е. ни одного положительного числа мы не получим, т.е. условие if не выполнится ни разу и значение m не изменится
Ответ m=6
Задание 1:
Var n,i:integer;
begin
readln(n);
for i:=1 to n do
write(i,',');
writeln;
<span>end.
Задание 2:
Var n,i:integer;
begin
readln(n);
for i:=n to 1 do
write(i,',');
writeln;
<span>end.
Задание 3:
Var n,k,i:integer;
begin
writeln('Введите N');
readln(n);
writeln('Введите K');
readln(k);
for i:=1 to n do
write(k,',');
writeln;
<span>end.
<u>Научитесь наконец писать разборчиво задания! Ничего не понятно!!!</u></span></span></span>
Uses crt;
const max=100;
var a: array [1..max] of real;
i,n:integer;
begin
clrscr;
write('Zadajte razmernost massiva');
readln(n);
writeln('Ishodnij massiv:');
for i:=1 to n do
begin
a[i]:=random(100);
write(a[i]:7:2);
end;
writeln;
writeln('Novij massiv:');
for i:=1 to n do
begin
if (i mod 2)<>0 then
a[i]:=sqrt(a[i]);
write(a[i]:7:2);
end;<span>
end.</span>
Второе DD SDARAM +++++++++++++++++++++++++++++++++++++;)
Всего используется символов = 12 букв + 10 цифр = 22 символа
2^x>=22, x = 5 (бит)
5 бит используется для кодирования 1 символа
1 номер = 5(бит) * 6(символов) = 30 (бит) / 8 = 3,75 (байт)
