для тех, кто хочет сделать добро!!!

[darkkhan]

линейный алгоритм
1. Дочери в настоящее время 8 лет, а матери 38. Через сколько лет мать будет втрое старше дочери?


оператор выбора
2. Составить программу, которая по введенному значению года и номеру месяца выводит количество дней в месяце. Предусмотреть проверку високосного года.


с постусловием и предусловием
3. Сколько существует пар чисел х и у от 1 до 1000, для которых x^2+y^2 делится на 49?


процедура
4. Некоторые пятизначные числа, составленные из пяти различных цифр, обладают тем свойством, что число, образованное первыми двумя цифрами, будучи умноженным на среднюю цифру, дает число, образованное последними двумя цифрами. Составить программу поиска всех таких чисел.

[xwicked]

1 * $a + 2 * b$ + 3 * $c + 4 * d$ = добро!
Или код, где то, что у Вас не получается сделать.

[mss]

"Добром" теперь называется спасти очередного пня от отчисления ?)

[Pein95]

всё сделаю обращайтесь(Конешно что не бесплатно) скайп pein955))
если есть наработки помогу бесплатно)

[darkkhan]

Разработка программ с применением процедур
Составьте программу вывода на экран всех натуральных чисел, не превосходящих N и делящихся на каждую из своих цифр.



прошу помочь!!!!!!!


НАРАБОТКА:

procedure c(k:integer);
Var
 l,kol,r:integer;
 s:string;
begin
r:=k;
str(k,s);
kol:=0;
while k<>0 do
begin
  if ((k mod 10)<>0) and (r mod (k mod 10)=0) then
   inc(kol);
 k:=k div 10;
end;
if kol=byte(s[0]) then
 m:=true
else
 m:=false;
end;

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

прежде всего просто пример кода, как можно разобрать целое число на отдельные циферки:

var
  OneDigit : longint;
begin
    while Num>0 do begin
        OneDigit := Num mod 10; {<<<< - очередная цифра числа }
        Num := Num div 10;
    end;

а теперь код для той задачи, которую Вы пытаетесь решить:

function Is_Divide_On_All_Digits(NN : longint): boolean;
var
  Num : Longint;
  OneDigit : integer;
begin
    Is_Divide_On_All_Digits := false;
    if NN <> 0 then
    begin
      Num := NN;
      while Num>0 do begin
        OneDigit := Num mod 10;
        if OneDigit = 0 then Exit
        else
          if (NN mod OneDigit) <> 0 then {число не делится} Exit;
        Num := Num div 10;
      end;
      {прошли по всем цифрам и на все делилось}
      Is_Divide_On_All_Digits := true;
    end;
end;

var
  i, N  : Longint;
begin
  WriteLn('Введите N ');
  ReadLn(N);
  for i:=1 to N do
    if Is_Divide_On_All_Digits(i) then Writeln(i);
  readln;
end.