Найти все числа, цифры которых образуют возрастающую последовательность (2345 или 2689) и кратны k - Turbo Pascal

Формулировка задачи:

Помогите пожалуйста нарисовать блок-схему алгоритма для программы Найти все числа, цифры которых образуют возрастающую последовательность (2345 или 2689) и кратны k. Если кто нибудь нарисует буду очень благодарен! Добавлено через 4 часа 21 минуту Мне очень нужно А сам пока не в состоянии написать что нибудь, более, да и программу еще не знаю как писать... Добавлено через 16 минут Болею*

Код к задаче: «Найти все числа, цифры которых образуют возрастающую последовательность (2345 или 2689) и кратны k - Turbo Pascal»

textual
var
   k, x, n, m1, m2, i : integer;
                   f  : boolean;
begin
    writeln('ââåäèòå ÷èñëî k: '); readln(x);
    writeln('ââåäèòå ÷èñëî k: '); readln(k);
for i:=10 to x do
begin
if i mod k = 0 then
 begin
 m2:=MaxInt;
  f:=false;
   n:=i;
  repeat
  m1:=n mod 10;
   if (m1<m2) then f:=true else begin f:=false; break; end;
    n:=n div 10;
     m2:=m1;
  until n=0;
 if f = true then writeln(i);
 end;
end;
end.

12   голосов, оценка 4.167 из 5


СОХРАНИТЬ ССЫЛКУ