Задачи на разные темы...

[assams]

Надо написать программы,так как паскалем занимаюсь не очень давно, не знаю даже с чего начать,..Если можно будет рассписать по побробнее алгоритм!,...

1) Составить программу восстановления задуманного числа Х<100 по заданным остаткам от деления на 3, на5, на 7. Остаток задаются с клавиатуры.

2) Составить прорамму вычисления суммы 1+1/2+1/3+...+1/n двумя способами: в порядке записи слагаемых от меньшего к большему и в обратном порядке. Установить наименьшее значение n, начиная с которого результат вычислений становиться различным.

[Манжосов Денис :)]

1)

program ameba;
var
  a,b,c: integer;
begin
  ReadLn(a);
  WriteLn(a * 3);
  ReadLn(b);
  WriteLn(b * 5);
  ReadLn(c);
  WriteLn(c * 7);
 ReadLn;
end.

[Serge_Bliznykov]

Манжосов Денис, не, не зачёт!
Вы невнимательно прочитали условие задачи!
Нужно найти ОДНО число X<100, для которого известны остатки от деления на 3, 5, 7...
и, честно говоря, я вообще не понимаю, какую задачу решает Ваш код...


assams, для решения первой задачи нужно
просто в цикле перебрать все значения, проверяя сопадения остатков с заданными...
например, так:

var i, o3,o5,o7 : integer;
  isFound : boolean;
begin
  WriteLn;
  Write('Введите остатки от деления числа на 3, 5, 7: ');
  Readln(o3,o5,o7);
  isFound := false;
  for i:=0 to 99 do  
    if (i mod 3 = o3) and (i mod 5 = o5)
        and (i mod 7 = o7) then
    begin
      isFound := true;
      WriteLn('Найдено подходящее число: ',i:1);
      {тут, в принципе можно цикл прерывать, т.к. 
           для заданных чисел в заданном диапазоне может быть ТОЛЬКО
        одно подходящее число!}
    end;
   
  if Not isFound then
    WriteLn('Нет подходящих чисел!');
  readln;
end.

p.s. и неплохо было бы организовать проверку вводимых остатков на корректность...