Задачи Паскаль

[ЕленаКсен]

1.дано целое четырёхзначное число.Используя операции div и mod, найдите произведение его цифр.

2.Даны координаты любой точки в плоскости.опредилить принадлежит ли точка окружности с радиусом R и в каком квадрате она находится.

3. Дана последовательность An и e>0. Найти первый член последовательности An для которого lAn - An-1l < e.
An = 1+ 1/2^x + 1/4^x + 1/6^x + ...

4.Дан одномерный массив А(11). Заменить все элементы с нечётными номерами значением последующих чётных номеров.

5.Дан двумерный массив С(6,6). Заменить все элементы с чётным номером столбца значением "5".

[ROMA2PVT]

Ваши наработки в студию.

[ЕленаКсен]

Пожалуйста помоги решить эти ... задачки
я не знаю уже у кого просить...
плачу уже час, ппц((((

[ROMA2PVT]

эх отправить бы вас во фриланс да жалко.
-I-

Uses
  CRT;
var
  n, sum :integer;
begin
  Clrscr;
  write('Введите число: ');
  readln(n);
  sum := 0;
    repeat
      sum := sum + (N mod 10);
      n := n div 10;
    until n=0;
writeln('Summa:=', sum);
readkey;
end.

-IV-

Uses
  CRT;

var
  a: array[1..20] of integer;
  i, j, n, k: integer;

begin
  Clrscr;
  randomize;
  writeln('Исходный массив: ');
  for i := 1 to 11 do
  begin
    a[i]:=random(10)-3;
    write(a[i]:2,' ');
  end;
  writeln;
  i:=1;
 while i<11 do
  begin
   k:=a[i];
   a[i]:=i+1;
   i:=i+2;
  end;
 writeln('Результирующий массив: ');
  for i:=1 to 11 do
  begin
  write(a[i]:2,' ');
  end;
  end.

[ЕленаКсен]

Спасибо большое!!!
Это я так понимаю на 1 и 4 ответы?
они так и есть, все эти значки? =)
я просто в Паскале вообще не бум_бум((

[ROMA2PVT]

Да я вам написал в полном виде.

я просто в Паскале вообще не бум_бум((

советую книгу по программированию почитать какую нибудь.

[Ol'ga_new]

В первой задаче, решение ROMA2PVT нужно исправить сумму на произведение.
Для пятой:

j:=2
while j<6 do
begin
for i:=1 to 6 do
c[i][j]:=5;
j:=j+2;
end;

[ROMA2PVT]

В первой задаче, решение ROMA2PVT нужно исправить сумму на произведение.

<<offtop>>
Блин просмотрел.

Для пятой:

Боюсь что сейчас вас попросят полное решение написать.

[ЕленаКсен]

Спасибо большое
А что 5 такая короткая?
А как это исправить?

[Ol'ga_new]

Бывает! и ещё начальное условие sum=1(если не переименовывать переменную)