Практикум по решению задач на ЭВМ. Тарова И.Н - 35 стр.

                    Практикум по решению задач на ЭВМ



  program zicl(input,output);
  uses CRT;
  label 2;
  var n,i,q,z,r,variant:integer;
  begin
     clrscr;
     writeln('Выберите вариант работы программы:');
writeln('1 - поиск членов последовательноси, которые при');
writeln('делении на 7 дают остаток 1, 2 или 3');
writeln('2 - поиск членов последовательности являющихся');
writeln('удвоеными нечетными числами');
     2: read(variant);
     if (variant<>1) and (variant<>2) then
        begin
writeln('Неправильно выбран вариант (только 1 или 2)');
           goto 2;
        end;
     else
        begin
           if variant = 1 then
           begin
              write('Введите число n:');
              read(n);
              for i:=1 to n do
              begin
                 write(i,'-е число для проверки ');
                 readln(q);
                 r := q mod 7;
                 if (r =1) or (r =2) or (r =3) then
                 begin
write('Число ',q,' удовлетворяет нашему условию');
                 writeln('(остаток=',r,')');
                 end
                 else
writeln('Не удовлетворяет нашему уcловию (остаток=',r,')');
              end;
           end;
           if variant=2 then
           begin
              write('Введите число n: ');
              read(n);
              for i:=1 to n do


                                    35