Спаскалем! найти сумму всех четных трехзначных чисел которые делятся на 7. написать программу.

var i: word; переменная через которую будут проходить все трехзначные цифры s: longint; переменная для хранения суммыbegins: =0; -обнуляем переменную где будем сохранять суммуwrite('числа: '); for i: =100 to 999 do   начинаем перебор всех трехзначных цифрif i mod 2 = 0 then проверка на четность, мод - это деление по остатку,т.е в ответ записывается остаток от деления if i mod 7 = 0 then begin write(i,' '); s: =s+i; end; выводим четное число кратное 7 и в тоже время суммируем его с последующими четными кратных 7ми, в переменной swriteln; пропускаем строкуwriteln('сумма всех всех четных трехзначных чисел, которые делятся на 7 = ',s); выводим на экран результатend.

Если света и настя идут в лес, то и маша идет в лес. иначе - если они идут на - то и маша тоже. если они идут на , то гриша тоже. иначе - если они идут в лес - то и гриша идет в лес. а алексей вместе с гришей. получается, что маша, гриша и алексей идут туда, куда идут света и настя. света, похоже, везде ходит вместе с настей. а настя идет вслед за мишей. получается, что они все идут вслед за мишей. верное утверждение 2: если света идет в лес, то все берут корзины и ножики и тоже идут в лес за грибами.

Числа фибоначчи   – это элементы числовой последовательности,   в которой каждое последующее число равно сумме двух предыдущих. var a,b,c,i,n: integer; begin       write('введи  n = ');       readln(n);       a : = 0;       write(a,' ');       b : = 1;       write(b,' ');       for i: =3 to n do begin             write(a+b,' ');             c : = b;             b : = a + b;             a : = c       end; end.