Question

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

Answer 1

program 1;

var i:integer;

begin

for i:=35 to 87 do

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

end.

Answer 2

var
a: array[1..53] of integer;
i, n: byte;
begin
n:=34;
write('Числа: ');
for i:=1 to 53 do
begin
n:=n+1;
a[i]:=n;
write(a[i]:3);
end;
writeln;
writeln('При делении на 7 дают остаток 1, 2 или 5: ');
for i:=1 to 53 do
begin
if (a[i] mod 7 = 1) or (a[i] mod 7 = 2) or (a[i] mod 7 = 5)
then begin
if a[i] mod 7 = 1 then writeln(a[i], ' (остаток 1)');
if a[i] mod 7 = 2 then writeln(a[i], ' (остаток 2)');
if a[i] mod 7 = 5 then writeln(a[i], ' (остаток 5)');
end;
end;
end.