TXT- текстовый файл DOC ODT-расширение имени файла RTF-свободный формат хранения HTML-это язык, который позволяет представлять информацию PDF-формат электронных документов Некоторые могут быть неправильными
Смотри, выписываешь все числа на бумагу. 1.Смотришь первый шаг: максимальная сумма 2-значных чисел это 18 (9+9), минимальная 1 (1+0), то есть больше 18 . 2-ой шаг - максимальное произведение это 27 (9*3), а минимальное 0 (0*3) или 3 (1*3). 3.Каждое число делишь (чертой) на 2 числа. (2 |1, 7|3, 9|4, 72|9, 12|9, 15|14, 27|18, 29|12 4.смотришь чтобы ни одно число не было больше 27, а если такое есть, то другое число должно быть меньше либо равно 18. 7|29 и 29|12 сразу зачеркиваем, так как они не подходят. Далее смотришь, числа по невозрастанию должны быть, так что 4.Дальше надо считать: 1-е число:2 и 1. Неподходит, так как ни одно число не подходит в диапазон умножения (оно не равно 3-м или нулю). Зачеркиваем. 2-е число 7 и 3. число 7 не делится нацело на 3, возможно, что оно произошло при сложения (4 и 3 например). 3 тоже подходит (3*1) Оставляем. 3-е число 9 и 4 Подходит (3*3 и 2+2) 4-е число 72 и 9 мы его зачеркнули 5-е число 12 и 9 Подходит (4*3 и 6+3) 6-е число 15 и 14 Подходит (5*3 и 7+7) 7-е число 27 и 18 Подходит прям впритык (9*3 и 9+9) 8-е число 29 и 12 Мы его зачеркнули ответ: 5 чисел.
Возможно, тебе мой метод непонятен, так что обратись к другим источникам, или налегай на другие задания. Удачи)))
Var a,b,c,d,i,f,g,h,n:integer; begin writeln('введите число'); readln(a); g:=0; c:=0; d:=0; i:=0; f:=0; writeln('введите число для сравнения'); readln(h); for b:=a downto 1 do begin if a mod b = 0 then writeln('его делитель ==>',b); if a mod b = 0 then c:=b+c; if a mod b = 0 then if b mod 2 = 0 then d:=d+b; if a mod b = 0 then if b mod 2 <> 0 then i:=i+1; if a mod b = 0 then f:=f+1; if a mod b = 0 then if b mod 2 = 0 then g:=g+1;i f a mod b = 0 then if b>h then n:=n+1; end; writeln('сумма его делителей ==>',c); writeln('сумма его чётных делителей ==>',d); writeln('количество нечётных делителей ==>',i); writeln('количество чётных делителей ==>',g); writeln('количество делителей ==>',f); writeln('количество делителей больших b ==>',n); end.
DOC ODT-расширение имени файла
RTF-свободный формат хранения
HTML-это язык, который позволяет представлять информацию
PDF-формат электронных документов
Некоторые могут быть неправильными