Може ли някой да ми помогне с една задача: Да се състави програма на Паскал за намиране сумата на числата S =1+2+....+100
Благодаря предварително, че в другиден имам изпит. 

На езика С++ ще се представи така :
CODE

1 2	for (i=1; i<=100; i++) s = s + i;

не цялата програма а само алг. който смята това, ами
според моя (жалак) опит да го направя на паскал,
мисля че ще изглежда така :
CODE

1	for i := 1 to 100 do s := s + i;

сигорно е фрашкано с грешки но все пак това е моя опит

mrhellish
Благодаря ти много!!!

Можете ли да напишете тази програма?
Да се състави програма на Pascal,която пресмята сума от следните дроби.
S=1/2+1/4+1/8+1/16+1/32 и сбора на числата продължава до 1/1024.
Спешно е

ako tova koeto e napisano po-gore e vqrno ,to tvoqta programa trqbva da izglejda taka:
for i := 1 to 1024 do s := s + 1/i;

Ако си учил геометрична прогресия може да стане лесно по формулата:

Sn = (a1 - an*q)/(1 - q)

Където Sn е сумата на числата, a1 е първият член (т.е. 1/2), q е частното на прогресията (т.е. пак 1/2) и an е последния член (1/1024). И на паскал задачата май трябва да изглежда така:

CODE

1 2 3 4 5 6 7 8 9 10

program Prog; var Sn, a1, an, q:real; begin  write('a1=');readln(a1);  write('an=');readln(an);  write('q=');readln(q);  Sn := (a1 - an*q)/(1 - q);  write('Sboryt na chislata e', Sn:4:2);  readln; end.

Надявам се да нямам грешки в синтаксиса.