Рассматривается множество целых чисел, принадлежащих числовому отрезку [2461; 9719], которые удовлетворяют следующим условиям:
− цифра в разряде десятков принадлежит отрезку [3; 7];
− цифра в разряде сотен отлична от 1 и 9.
Найдите количество таких чисел и максимальное из них.
2919 9679
Объяснение:
var k,s,i:longint;
begin
k:=0;
s:=0;
for i:=2461 to 9719 do
if ((i div 100) mod 10 <>1) and ((i div 100) mod 10 <>9) and ((i div 10) mod 10 >=3) and ((i div 10) mod 10 <=7) then
begin
k:= k+1;
s:= i;
end;
write (k,' ',s)
end.