Задача на числа! Опции

[vRs]

дополнить число 42*4 так , чтобы полученное пятизначное число делилось на 72..
ПОмогите пожалуйста..очень срочно

[Zzzz...]

Что тебе не понятно? Эта задача решается даже простым перебором элементарно, безо всяких оптимизаций: тебе надо получить пятизначное число, значит, вместо звездочки - 2 символа. Это значит, что перебирать надо комбинации 0 - 99. Для каждого из этих чисел формируешь пятизначное число 42xx4 (как - подумай сам), и проверяешь остаток от его деления на 72...

Итого получаешь 3 пятизначных числа...

Это не просто слова, это для тебе слова истины как делается.

VAR
   q,a,b,c,i,j:longint;
   s:array[1..100] of longint;
BEGIN
a:=42;
b:=4;
for i:=0 to 9 do
    begin
         for j:=0 to 9 do
             begin
                  c:=42*1000+i*100+4*10+j;
                  if (c mod 72)=0 then
                     begin
                          inc(q);
                          s[q]:=c;
                  end;
             end;
    end;
END.

Сообщение отредактировано: Zzzz... - 22.03.2008 13:23