Помагите плиз надо завтро срочно отчё здать а я нечё несделал!!!!Дополнить число ***999 цифрами слева так,чтобы полученное число делилось на 13,17,19!!

Это - твои проблемы... Вот тут я говорил, что надо делать для решения: Задача на числа!
(у тебя почти тот же случай)

Может нам еще за тебя здать?

Нет!!здавать ненадо не чесно пацаны выручайте!!!

тебе же volvo уже дал ссылку на решение похожей задачи.

Там нету решений и я ваше немогу врубиться в эту задачу

Неправда. Решение там есть.

Цитирую:



ОК, переформулирую для твоей задачи:




Теперь попробуй что-нибудь написать сам.

кк СПС поробую!!!!

У меня неполучаеться помагите плз получше напишите плз текст проги !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!1

Блин,а может код хоть даш..а то сложновато както наугад!

Похоже проблема в том, что не получается начать

нет вот я уже её сделал вот решение:
uses crt;
VAR
q,a,b,c,k,i,j:longint;
s:array[1..100] of longint;
BEGIN
clrscr;
a:=999;
for i:=1 to 9 do
begin
for j:=0 to 9 do
begin
for k:=0 to 9 do
begin
c:=i*100000+j*10000+k*1000+9*100+9*10+9;
end;
if (c mod 13)=0 then
writeln ('4ucLo geJluTc9 Ha 13 ',c);
if (c mod 17)=0 then
WRITELN('4ucLo geJluTc9 Ha 17 ',C);
if (c mod 19)=0 then
WRITELN('4ucLo geJluTc9 Ha 19 ',C);
end;
end;
END.

вроде тебе нужно чтобы число делилось и на 13,и на 19, и на 17?

Это не решение данной задачи... У тебя проверяются далеко не все числа из тех, которые должны проверяться, а ты не видишь этого, потому что программа не отформатирована как следует.

Hint: обрати внимание, что все без исключения числа, которые ты получаешь, имеют вид **9999... Что, например, число 881999 не делится на 19? Делится... Подумай, почему оно не печатается...

if-ы не там стоят

Немного подредактировал...Правильно?

uses crt;
VAR
q,a,b,c,k,i,j:longint;

BEGIN
clrscr;
a:=999;
 for i:=1 to 9 do
  begin
   for j:=0 to 9 do
    begin
     for k:=0 to 9 do
      begin
       c:=i*100000+j*10000+k*1000+9*100+9*10+9;
       if (c mod 13)=0 then
         writeln ('4ucLo geJluTc9 Ha 13 ',c);
       if (c mod 17)=0 then
         WRITELN('4ucLo geJluTc9 Ha 17 ',C);
       if (c mod 19)=0 then
         WRITELN('4ucLo geJluTc9 Ha 19 ',C);
      end;

     end;
   end;
readln;
end.

да, только если ему нужно чтобы число делилось или на13, или на 17, или на 19.

и еще нафиг тут переменная a она же не используется?

То, что здесь на фиг не нужны переменные i, j, и k тебя не смутило? Автор, как видно, руководствовался принципом, чем больше циклов - тем круче, поэтому вместо одного сделал 3...

похоже на то)...

Я просто переставил циклы...На большое количество переменных внимания обращать не стал...