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

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. 

 

 

 

 

 

 

Answer 2

var

  i: integer;

 

begin

  for i:= 35 to 87 do

  begin

    if i mod 7 = 1 then writeln(i, ' - остаток 1');

    if i mod 7 = 2 then writeln(i, ' - остаток 2');

    if i mod 7 = 5 then writeln(i, ' - остаток 5');

  end;

end.