Программа на pascal. вывести на экран все числа кратные заданному а, из интервала указанного или так наверно понятнее: пользователь ввел число а и интервал чисел, из этих чисел вывести на экран кратные числу а.

пусть введенный интервал будет

b и c,где b< c

var a,b,c,i: longint;

begin

    read(b,c);

    for i: =b to c do

            if i mod a=0 then write(i);

end.

var

  s, ss: string;

  ls, lss, i, j: integer;

  flag: boolean;

begin

  readln(s);

  readln(ss);

  i : = 1;

  ls : = length(s);

  lss : = length(ss);

  flag : = false;

  while i < = ls - lss + 1 do

  begin

    if s[i] = ss[1] then

    begin

      flag : = true;

      for j : = 1 to lss - 1 do

        if s[i + j] < > ss[j + 1] then

        begin

          i : = i + j;

          flag : = false;

          break

        end;

      if flag then

      begin

        write('является');

        exit;

      end;

    end;

    i += 1;

  end;

  write('не является');

end.

#include

int main()

{

    float a = 0, b = 0;

    int k = 10;

    scanf("%f", & a);

    for(int i = 2; i < = k; i += 1)

    {

        scanf("%f", & b);

        if(b < = a)

        {

            printf("ne obrazuyut");

            return 0;

        }

        a = b;

    }

    printf("obrazuyut");

    return 0;

}