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

[Ananim-Pbl6ak]

вы меня не поняли мне нужно чтобы если флаг фолс говорили что такие числа ненайдены

[vovk]

а почему вы в условии ставите тогда если флаг истина тогда не найдены??
Вы попробуйтке запустить как поменял всё работать будет

А если уж так хочется чтоб false то поменяйте первое значение на Flag:=false;

в цикле по условию между бегин и енд Flag:=true;


и в последнем условии If not flag
тогда будет писать если флаг =ложь
только смысл?

[Ananim-Pbl6ak]

а как надо сделать правильно я в этом не понимаю

[vovk]

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

end.

вот
Это не панацея всеголиш немного подправленый ваш код
ЗЫ Надеюсь вы не на програмиста учитесь? Если всёже на него то правильно всётаки будет поменять профессию

[Ananim-Pbl6ak]

всеравно не пишет что числа кратные А ненайдены

[vovk]

а что пишет?

[Ananim-Pbl6ak]

ничего не пишет ( прога работает с числами которые кратны А, а с другими ничего не говорит

[vovk]

ээ поподробнее что просто закрывается?

[Ananim-Pbl6ak]

да потом опять открываешь ничего ненаписано просит ввести

[vovk]

ну тогда перед последним end. ну который с точкой напишите readln;
и тут

then writeln ('Числа ненайдены')

не забудте поставить;
просто консольное приложение отработало всё показало и закрылось а вы ничего не успели прочитать и для проверки вводити 2-3 значные числа минимум только тогда будут несовпадения