Не знаю зачем ты писал такие костыли , если вот весь алгоритм
for (i = 1; i<n; i++)
{
if ((mas[i] % 2 == 0) && ((i >= a) && (i <= b)) && ((i>0) && (i<n - 1)))
{
mas[i] = mas[i - 1] + mas[i + 1];
}
}
Чтобы узнать значение переменной i после выполнения программы, нужно 1000/3, так как цикл будет выполняться, пока i < 1000.
1000/3 ~ 333.
Проверяем: 333 * 3 = 999.
При этом значении цикл повторяется, так как 999 < 1000.
Чтобы завершить цикл, сделаем еще одну итерацию.
I = 1002.
1002 > 1000, соответственно цикл прекращается и на вывод идет переменная i.
Ответ: 1002.
Program z1;
var x:integer;
begin
for x:=100 to 999 do
if (x mod 11=0)and(x mod 3=0) then
write (x,' ');
end.
Можно, долго не размышляя, решить задачу методом "тупого перебора".
program SpecialHappyTickets;
var
i, j, k, l, m, n, s: integer;
begin
s := 0;
for i := 0 to 9 do
for j := 0 to 9 do
for k := 0 to 9 do
for l := 0 to 9 do
for m := 0 to 9 do
for n := 0 to 9 do
if (i + j + k) = (l + m + n) then
if i + j + k = 13 then s := s + 1;
Writeln(s)
end.
<em><u>Результат выполнения программы:</u></em>
5625
Элементарно, умножь Гб на 1024, получится 2560 Мб. А в одном байте 8 бит, значит делим, 63035,875 байт