Если в Паскале то вот должно работать !
BAR i,s:integer;
BEGIN
s:=0;
for i:=1 to 100 do
if i mod 2 = 0 then s:=s+i;
writeln(s);
<span>END.</span>
14; 13; 18; 19.
Вот и всё!
<span>988 г. - 5) Принятие христианства на Руси </span>
<span>1147 г. - 6) Первое упоминание в летописи о Москве </span>
<span>1492 г. - 9) Открытие Колумбом Америки </span>
<span>1895 г. - 3) Открытие радиосвязи </span>
<span>1941 г. - 7) Начало Великой Отечественной войны </span>
<span>1946 г. - 1) Создание первого компьютера </span>
<span>1951 г. - 2) Создание первого отечественного компьютера </span>
<span>1957 г. - 8) Запуск первого искусственного спутника Земли </span>
<span>1961 г. - 4) Первый полет человека в Космос</span>
const Знаки_препинания = ".,!?():;—…«»";
var Строка = prompt();
alert(Строка.replace(new RegExp("[" + Знаки_препинания.split("").join("\\") + "]", "g"), ""));
Можно использовать формулу:
=СТЕПЕНЬ(A1*B1*C1;1/3)-ОТБР(СТЕПЕНЬ(A1*B1*C1;1/3))