<em>// PascalABC.NET 3.2, сборка 1379 от 21.01.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
for var m:=1 to ReadInteger('n=')-1 do begin
var s:=0;
for var i:=1 to m div 2 do
if m mod i=0 then s+=i;
if m=s then Writeln(m)
end
end.
<u>Пример</u>
n= 10000
6
28
496
8128
1. Из 10-ой СС в 2-ую СС.
112 = 1110000
65 = 1000001
2. Из 10-ой СС в 8-ую СС.
45 = 55
123 = 173
3. Из 10-ой СС в 16-ую СС.
168 = A8
4) DVD+RW
На CD-RW в принципе тоже можно, но перед этим надо полностью стереть все что там хранится и записать это заново. А первые два варианта - диски однократной записи.
Ответ:
19263
19563
19863
Объяснение:
Число делится на 3, если сумма всех его цифр делится на 3.
1+9+6+3=19
3*i > 19 ⇒ i>19/3, i ∈ Z ⇒ 10 > i > 6 ⇒ i ∈ {7;8;9}
3*7-19=2
3*8-19=5
3*9-19=8
Var
i,k,a1,d:integer;
begin
Writeln('Введите количество, a1, d') ;
readln(k,a1,d);
for i:=1 to k do
writeln('a-',i,' = ',a1+(i-1)*d);
<span>end.</span>