Question

2. Даны натуральные числа от 35 до 87. Найти и напечатать те из них, которые при делении на 7 дают остаток 1, 2 или 5.

Answer 1

Program Chisla;

Uses Crt;

var i:integer;

begin

    clrscrl

    for i:=35 to 87 do

        if (((i mod 7)=1) or ((i mod 7)=2) or ((i mod 7)=5)) then writeln(i);  

   readkey;

 

end.