Question

даны числа от n1 до n2 (n1 и n2 вводятся с клавиатуры). найти и вывести на экран те числа из промежутка от n1 до n2, которые при делении на 7 дают в остатке 1, 2 или 5. Вывести количество таких чисел. СРОЧНО, ПОМОГМТЕ ПОЖАЛУЙСТА

Answer 1

program raf105;

var

 n1,n2,i,c: integer;

begin

 write('Введите 2 числа (начало и конец диапазона): ');

 readln(n1,n2);

 for i:=n1 to n2 do

 begin

   if (i mod 7 = 1) or (i mod 7 = 2) or (i mod 7 = 5)

     then begin

       write(i,' ');

       c:= c+1;

     end;

 end;

 writeln;

 writeln('Количество чисел: ',c);

end.

PascalABC 3.4.2