Задача
Помогите решить
Вычислить сумму ряда чисел: a)2+4+6+...+100 на Pascal
Вычислить сумму ряда чисел: a)2+4+6+...+100 на Pascal
Write('Sum=', 2+4+6+8+10+12+14+16+18+20+22+24+26+28+30+32+34+36+38+40+42+44+46+48+50+52+54+56+58+60+62+64+66+68+70+72+74+76+78+80+82+84+86+88+90+92+94+96+98+100);
Цитата: Phodopus
Write('Sum=', 2+4+6+8+10+12+14+16+18+20+22+24+26+28+30+32+34+36+38+40+42+44+46+48+50+52+54+56+58+60+62+64+66+68+70+72+74+76+78+80+82+84+86+88+90+92+94+96+98+100);
Эх, что с людьми делает отсутствие макросистемы. Такой код нужно генерировать макросом на этапе компиляции!
я его и сгенерировал. "макросом" JavaScript :)