program n_1;
var n, m, i: int64;
begin
readln(n);
m:=1;
i:=0;
while n>0 do begin
if (n mod 10) mod 3 = 0 then begin write(m,' '); i:=1; end;
n:=n div 10;
m:=m+1;
end;
if i=0 then write('Таких разрядов нет');
end.
Январь принадлежит материнскому каталогу Зима, если следовать из условия. Таким образом, полное имя файла будет таким: <span>D:\2013\Зима\Январь\Вьюга.doc</span>
1580kilobautпо идее должно быть до 1580 килобайтов
#include<iostream>
using namespace std;
int main() {
setlocale(0, "");
int nech=0, ch=0;
int a;
cin >> a;
while(a!=0){
cin >> a;
if (a % 2 == 0)ch++;
else nech++;
}
cout <<"НЕЧЕТНЫХ "<< ch <<" ЧЕТНЫХ "<< nech << endl;
system("pause");
}
21. D.110(2)
22. A.110(16)
23. D.111(2)
24. A.111(16)
25. D.101(2)