программа с циклами с параметром

[Ananim-Pbl6ak]

Program Laba2;
{Работу выполнил}
Var A,I: Integer;
begin
Write ('Введите делитель A: ');
Readln (A);
for A:= 0 to 9 do
if A

[Arigato]

{Работу выполнил}

Я не думаю, что стоит приводить решение за Вас. Ваши знания, судя по всему, близки к 0. Изучите соответствующую литературу, рассмотрите примеры, тогда продолжим беседу.

[Ananim-Pbl6ak]

Program Laba2;
{‚лЇ®«*Ё« ђ®¬**®ў Ђ*в®*}
Var A,I: Integer;
begin
Write ('Введите делитель A: ');
Readln (A);
for A:= 0 to 9 do
if A



в правильном направлении?

[Arigato]

Нет, цикл по I.

[Ananim-Pbl6ak]

почему по I, и что I обозначает?

[vovk]

Сообщение от Ananim-Pbl6ak

почему по I, и что I обозначает?

Потому что A у вас число на которое будите делить а вы ему 0 присвоили в первое прохождение, 1 во второе и так до 9
И судя по всему даже не запускали, и дальше не писали иначе уже бы на ошибку жаловались.

[Arigato]

I - пропущенная цифра в числе. Можете обозначить по другому.

[Ananim-Pbl6ak]

Program Laba2;
Var A,PropuskCifr:Integer;
Flag:Boolean;
begin
Write ('Введите делитель A: ');
Readln (A);
Flag:=True;
for PropuskCifr:= 0 to 9 do
if (5040+(PropuskCifr*100)+PropuskCifr ) mod A=0
then
writeln ('Число ',(5040+(PropuskCifr*100)+PropuskCi fr),' кратно ',A);
Flag:=False;
if Flag
then writeln ('Чмсла ненайдены')

end.

вот как надо с Флагом сделать чтоб еще выдавало что числа ненайдены

[Ananim-Pbl6ak]

ну помогите кто нить

[vovk]

Сообщение от Ananim-Pbl6ak

ну помогите кто нить

вот так

if (5040+(PropuskCifr*100)+PropuskCifr) mod A=0
then
  begin
writeln ('Число ',(5040+(PropuskCifr*100)+PropuskCifr),' кратно ',A);
Flag:=False;
  end;

После then выполняется только 1 действие, так что у вас Flag всегда был false в конце программы. И условие If flag никогда не выполнялось.