Отправлено: 19.12.20 19:33. Заголовок: 17.(№ 2326) (А. Куканова)

Не совпадает ответ( Правильный ответ:1600 4210)
Задание: Рассматривается множество целых чисел, принадлежащих числовому отрезку [3905; 7998], которые удовлетворяют следующим условиям:
− цифра в разряде десятков отлична от 0 и 5;
− цифра в разряде сотен принадлежит отрезку [2; 6].
Найдите количество таких чисел и минимальное из них.
Моя программа:
var i,min,n: integer;
begin
min:=7998;
n:=0;
for i:=3905 to 7998 do
begin
if ( (i mod 10) <> 0) and (( i mod 10) <> 5) then
if ((((i mod 100)div 10)=2) or (((i mod 100)div 10)=3) or (((i mod 100)div 10)=4) or (((i mod 100)div 10)=5) or (((i mod 100)div 10)=6)) then
begin
n:=n+1;
if i<min then
min:=i;
end;
end;
writeln(n,' ',min);
end.

 Отправлено: 19.12.20 20:24. Заголовок: i mod 10 - разряд ед..

i mod 10 - разряд единиц

(i mod 100)div 10 - разряд десятков

(i mod 1000)div 100 - разряд сотен