Var i,s: integer; begin s: =0; //сумматор обнуляем обязательно for i: =1 to 100 do if i mod 2=0 then s: =s+i; //узнаем четное ли число и записываем его в нашу сумму writeln('сумма четных чисел равна ',s); end; все что после // (два слэша) можно удалить, так пишутся комментарии в программе
Спасибо
Ответ дал: Гость
в 4-м тыс. до н. э. из многих небольших территориальных образований — номов — возникло два политических объединения — верхний египет и нижний египет (со столицами в иераконполе и буто). создание единого государства приписывают правителю верхнего египта менесу. столицей объединённого государства около 3000 г. до н. э. стал мемфис.
Популярные вопросы