Найти сумму положительных нечетных чисел меньше 50

[мандаринка]

Срочно к сегодняшнему вечеру 17 декабря нужно решить 2 задачки.
1. Найти сумму положительных нечетных чисел меньше 50.
2. Даны натуральные числа x и y. Вычислить их произведение, пользуясь только операциями сложения и вычитания. Решить 2 способами.
Пожалуйста, помогите!! Я знаю, вы всесильны. Нужно это все на Паскале. Буду бесконечно благодарна, ибо вы спасете мне жизнь.

[begemotikdin]

приветик, надеюсь тебе это поможет!!!
ответ на 1-ю задачу!!!

uses crt;
var
  summa,i:integer;
begin
  summa:=0;
  i:=0;
  while i<50 do
  begin
    if i mod 2 <>0 then 
    begin
      summa:=summa+i;
    end;
  inc(i);
end;
writeln('summa=',summa);
readln;
end.

[begemotikdin]

вторая задача подобие 1-й
так что не перживай успехов тебе

[begemotikdin]

вторая задача
надеюсь поможет

var
x,y,proiz:integer;
begin
write('x=');
readln(x);
write('y=');
readln(y);
proiz:=x;
i:=x;
while i<=y do
begin
proiz:=proiz+i;
end;
i:=i+x;

**********что то подобное на компиляторе не проверял*****
вот надеюсь поможет

begemotikdin, для оформления кода используйте теги code или кнопку # code

[puporev]

Вторая задача. Два варианта.

program proizv1;
uses crt;
var a,b,c,k:integer;
begin
clrscr;
write('a=');readln(a);
write('b=');readln(b);
k:=0;c:=0;
while k<>b do begin
k:=k+1;
c:=c+a;
end;
write('proizv=',c);
readln
end.

program proizv2;
uses crt;
var a,b,c,k:integer;
begin
clrscr;
write('a=');readln(a);
write('b=');readln(b);
c:=0;
for k:=1 to b do
c:=c+a;
write('proizv=',c);
readln
end.

[мандаринка]

Спасибо вам! Прекланяюсь перед вашим талантом!
Вы меня спасли - благодаря этим задачам я по информатике сразу три пятерки получила)))))
Вы герои!

[мандаринка]

Хотя мне для полной пятерки в полугодии надо еще одну задачку решить. Вот условие: Натуральное число называется совершенным, если оно равно сумме своих делителей включая 1 и исключая само это число. Найти все совершенные числа до 100000.
Я тут начала, но все мои дальнейшие попытки Паскаль пресекает. Постоянно ошибки, так что подскажите, пожалуйста, правильно ли это вообще и как продолжить?
var x, y, s: integer;
begin
read (x);
for x:= 1 to 100000 do;

дальше не знаю. Кстати, когда я пишу сто тысяч - он пишет, что constant out of range. Когда исправляю на десять тысяч - работает. Вот.

[Alex21]

Вместо integer используйте longint

[puporev]

Вообще-то искать совершенное число до i=100000 дурное занятие, т.к. первые четыре таких числа меньше 10000, а пятое число= 33 550 336. В результате программа выдает сразу первые три числа, через пару секунд четвертое число, а потом долго думает(кажется, что компьютер завис).
Попробуйте и до 10 000 и до 100 000 и сравните.
А код этой программы есть и на форуме и во многих учебниках, поэтому в целях экономии вашего драгоценного времени привожу его ниже.

program poln_chis;
uses crt;
var i,k,j:longint;
begin
clrscr;
for i:=1 to 10000 do
   begin
    k:=0;
    for j:=1 to i-1 do
       if i mod j=0 then
          begin
            k:=k+j;
          end;
       if k=i then write(i,' ');
     end;
  readln;
end.